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PREFACE 



This Program Logic Manual (PLM) is a 
detailed guide to the IBM System/360 Disk 
Operating System logical transient 
programs. It supplements the program 
listings by providing descriptive text and 
flowcharts. 

The lists that follow give the titles of 
companion system control PLMs f 
prerequisite, and related publications. 

Note : Although titles of some DOS 
publications have been simplified, the 
change does not affect the contents of 
the publications. 

For overall system control logic 
description, this PLM is to be used with 
six other PLMs: 

• Introduction to DOS Logic , GY24-5017. 

• DOS Librarian , GY24-5079. 

• DOS Linkage Editor , GY24-5080. 

• DOS IPL and Job Control Programs , 
GY24-5086. 

• DOS Supervisor and Related Transients , 
GY24-5151. 

• DOS System Service Programs , 
GY24-5153. 

Prerequisite to the effective use of the 
seven PLMs are the following publications: 

• IBM System/360 Principles of 
Operation , GA22-6821. 

• DOS System Control and Service , 
GC24-5036. 

• IBM System/360 Disk and Tape Operating 
Systems, Assembler Language , 
GC24-3414. 



Publications related in subject matter 
to the seven system control PLMs are: 



• DOS Supervisor and I/O Macros , 
GC24-5037. 



• DOS System Generation , GC2U-5033. 



• DOS Operating Guide , GC2U-5022. 



• DOS Messages , GC24-5074. 



• DOS Data Management Concepts , 
GC24-3427. 



Titles and abstracts of other related 
publications are listed in the IBM 
System/360 and System/370 Bibliography , 
GA22-6822. 

This manual consists of four major 
sections. The first section discusses the 
logical transient functions covered in this 
manual. The second section describes the 
supervisor calls freguently used by logical 
transients. The third section details the 
internal logic flow. The last section is 
comprised of appendixes with label lists, 
error messages, supplemental figures, 
microfiche listings, and other references 
for program analysis. 

The flowchart symbols used in this 
manual conform with the flowcharting 
standards of the American National 
Standards Institute, Inc. Numerals, such 
as 00, identify the program or general 
level flowcharts. The detailed flowcharts 
are identified by letters AA through ZZ. 
Please refer to Appendix F for an 
explanation of these flowchart symbols. 
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LOGICAL TRANSIENT PROGRAMS 



Logical transient programs, also referred 
to as B-transients, are not resident in 
main storage. These transients are loaded 
or fetched from the core image library into 
the 1200-byte area of the supervisor called 
the Logical Transient Area (LTA) . 

The physical organization of the 
supervisor, including the location of the 
LTA f depends on the supervisor options 
specified at system generation. Figure 1, 
which shows the physical layout of the 
supervisor in core, is a main storage map 
of the assembled supervisor. 

An SVC 2 instruction loads and executes 
a B- transient phase. A prefix of $$B to 
the name of a phase identifies it as a 
B-transient. The normal return to 
supervisor nucleus control is an SVC 11, 
but some of the transient programs exit by 
fetching another B-transient with an SVC 2. 
In the latter case, the calling B-transient 
is overlaid by the transient being fetched. 

Register 1 is loaded with the address of 
the transient name before the SVC 2 is 
issued. The fetch or load routine, then, 
has access to the name for searching the 
disk directories or tape records for the 
desired transient. Refer to Logical 
Transient Supervisor Calls section for a 
more detailed explanation. 



B-TRANSIENT GROUPING 



The supervisor B-transient programs can be 
grouped by the various functions performed. 
These functions are: transient attention 
routine, program initiator, and program 
terminator. 



TRANSIENT ATTENTION ROUTINES 
(CHARTS 01-04) 



This group of B-Transients consists of 
$$BATTNA-$$BATTNH and $$BATTNN. 

Attention commands are submitted when 
the operator presses the request key on the 
1052 keyboard. The system 1 s attention 
transient routine ($$BATTNA) is loaded, and 
this calls $$BATTNB which issues the 
message READY FOR COMMUNICATIONS. It then 
reads input statement information and 
selects the appropriate statement 
processor. 



Commands accepted by the nonresident 
attention routines are: 



• PAUSE: Indicates job control pauses 
for operator communication at the end 
of the current job step in the 
specified partition or, optionally, at 
end-of-job of the current program. 

• CANCEL: Indicates one of the programs 
in the system is to be canceled. See 
Figure 2 for cancel code information. 

• MAP: Provides a map of main-storage 
utilization. See Figure 3. 

• ALLOC: Permits the operator to 
allocate storage among foreground and 
background programs. 

• MSG: Causes control to be given to a 
foreground program operator 
communications routine previously 
activated by a STXIT command. 

• TIMER: Causes interval timer support 
to be given to the program specified. 

• START: Indicates the foreground 
initiation function has begun. 

• BATCH: Initiates a dormant background 
or batched foreground area. 

• LOG, NOLOG: Permits or suppresses 
logging of job control and single 
program statements on SYSLOG. 

• IGNORE: Permits input from SYSRDR 
after a READ is issued. 

• MODE: Controls error threshold values 
and requests status information in the 
MCAR/CCH function of System/370 RMS 
(Recovery Management Support) . 



Note : If the operator has pressed the 
request key to satisfy an operator 
intervention condition or to cancel the 
job, the physical attention transients 
($$ANERRZ,' Y, and 0) process the attention 
interrupt . 

When the physical attention routines are 
processing the interrupt, they perform 
parameter passing by using a common area 
called the interphase communications area . 
Figure 4 shows this area and its 
relationship to the entire A-transient 
area. 
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Reset to Zeros after I PL 



-•►13 



14 

Comm Region 

Address 



18 

External 
Old PSW 



50 

System 

Timer 



20 
SVC 
Old PSW 



54 

System Timer 

of Day 



28 

Program 
Old PSW 



58 

External 
New PSW 



30 

Machine Check 

Old PSW 



60 

SVC New 

PSW 



38 

I/O 
Old PSW 



40 

csw 



68 

Program Check 

New PSW 



80 Diagnostic Scan-out Area (System/360) or Permanently Allocated Low Core (System/370^ 



48 
CAW 



70 

Machine Check 

New PSW 



4C 

BG Job 
Duration 



78 

I/O New 

PSW 



SUPERVISOR NUCLEUS 



General Cancel Routine 



Save Users Registers (SVEREG) Routine 



General Exit Routine (Task Selection) 



Background Communications Region and Extention 



MCRR or RMS Linkage Area 



JAI Common Table 



Channel Scheduler 



I/O Interrupt 



Unit Check 



Attention Task 



PC,OC, AB, and IT Tables 



Supervisor Constants 



General Entry Routine 



SVC Interrupt Handler 



Start I/O Routine 



Machine Check Interrupt (S/360 only) 



Error Recovery Exits 



Error Recovery Block 



PTA, IDRA, and LTA Save Areas 



Fetch Subroutines 



SVC Interrupt Routines 



Program Check Routines 



External Interrupt Routines 



Resident Device Error Routine 



Option Routine 



MICR Interrupt Routines 



2nd Part of 
All Bound PIB 



2nd Part of 
Subtask PIBs 
Note 1 



1 st Part of 
Supervisor PIB 



LUBDSP 
Table 



TEB/TEBV 



2nd Part of 
BG PIB 



1 st Part of 
All Bound PIB 



1 st Part of 
Subtask PIBs 
Note 1 



TSKID 
Table 



Console 
Buffers 



2nd Part of 
F2 PIB 



1 st Part of 
BG PIB 



Channel PUB 
Pointer Table 



FOCL 



FICL 



SYSLNK DIB 



SYSCLB LUBs 



2nd Part of 
Fl PIB 



1 st Part of 
F2 PIB 



SVC Interrupt 
Table 



PUB Table 



NICL 



PTO Patch Area 



2nd Part of 
Attn PIB 



1 st Part of 
Fl PIB 



Channel 
Queue 



FAVP 



LUB Table 



2nd Part of 
Quiesce I/O PIB 



1 st Part of 
Attn PIB 



LUBID 
Table 



JIB 



Track Hold Table 
Note 2 



2nd Part of 
Supervisor PIB 



1 st Part of 
Quiesce I/O PIB 



REQID 
Table 



Disk Information 
Blocks (with 
SYSFIL) 



CBF Patch Area 



JAI Partition Tables, User Save Area, Label Area 



(System/360) 

or 
(System/370) 



Machine Recording and Recovery, MCRR Patch Area 



RMS Monitor, RMS Resident Routines, RTA (R-transients) ! 



SDR Communications Region 



Foreground 2 Communications Region 



F2 Comreg Extension 



ASCII Translation Tables 



Patch Area 



I/O Error Logging (OBR/SDR) Routines 



Foreground 1 Communications Region 



Fl Comreg Extension 



SAB 



IDRA 



Logical Transient Area (B-transients) $$B 



Physical Transient Area (A-transients) $$A 



CE Table 



CE Area 



BG Program Save Area 



Note 1: Total of 9 subtasks PIBs generated. 
Note 2: Maximum of 225 entries generated . 



Problem Program Area 



Low 
Core 



Nucleus 
Code 



I/O and 

Information 

Blocks 



I/O Error 
Logging and 
Recovery 



Additional 

Comm 

Regions 

Logical 
and 

Physical 
Transients 



Figure 1. Supervisor Storage Allocation 
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PROGRAM INITIATOR (CHARTS 02-07) 



This group of B-Transients consists of 
$$BATTNA, $$BATTNC, $$BATTNI-$$BATTNM, and 
$ $ BATTNO- $ $B ATTNS . 

Single foreground programs are initiated 
by the operator through the 1052 assigned 
to SYSLOG. The operator may initiate a 
single program whenever an allocated 
foreground area does not contain a program. 

The operator initiates a single program 
by pressing the 1052 request key. The 
attention interrupt causes control to be 
given to the system's Attention routine. 

Note : If the transient area is in use 
by a routine other than the Attention 
routine, the attention interrupt is 
posted and serviced when the transient 
area becomes available. 

The Attention routine reads a command 
from the operator. The command START (Fl 
or F2) indicates a single program is to be 
initiated. The Attention routine 
determines if the area specified is 
allocated and does not contain a program. 
If so, it transfers control to the single 
program initiator; otherwise, the operator 
is notified that an invalid command has 
been given. 

The single program initiator reads 
subsequent commands required to initiate 
the program. These commands are used 
primarily to specify I/O assignments and 
label information. When an I/O assignment 
is attempted, the following verification is 
made: 

1. The symbolic unit is a valid logical 
unit. 

2. The symbolic unit is contained within 
the number specified for the area at 
system generation. 

3. If the symbolic unit is to be assigned 
to a non-DASD, the device must not be 
in use by the other foreground program 
nor can it be assigned to a background 
job either as a standard, temporary, 
or alternate unit. 

Figure 5 illustrates a LISTIO example. 

The label information for each file in 
the job is written on SYSRES as a label 
information block for later retrieval and 
processing by the data management routines. 
A main storage area for label information 
is required under the same conditions as 
for background jobs, and is calculated and 
reserved by the initiator for 
self -relocating foreground programs. For 



nonrelocatable foreground programs, the 
label information area is determined by the 
LBLTYP statement. 

When the EXEC statement is encountered, 
the initiator directs the supervisor to 
provide loading information for the program 
to be invoked. If the program has not been 
cataloged, the operator is notified by the 
initiator. He may correct the command (for 
example, if the name was misspelled) or 
cancel the initiation. 

After the loading information is 
received, the initiator checks the load 
address to determine if it is zero, which 
indicates that a self-relocating program is 
to be loaded. The initiator sets up the 
load address so that the program will be 
loaded following the label information 
area. It also calculates the entry point 
to the program by adding the address at 
which it will be loaded to the 
previously-calculated entry point (derived 
when the program was linkage edited and 
cataloged onto the system) . If a 
nonrelocatable program is loaded, the 
information used is that derived when the 
program was cataloged. 

Diagnostics, such as the program being 
outside the limits of the foreground area, 
are not performed by the initiator, but are 
performed by the supervisor when the 
program is loaded. The supervisor then 
causes the program to be terminated. 

When initial control is given to the 
foreground program, register 2 contains the 
address of the uppermost byte of storage 
available to this program. This may be 
used to calculate the total storage 
available to the program. A foreground 
program can dynamically determine the 
storage available to it by storing the 
contents of this register for later 
reference. 

Note that a program capable of either 
foreground or background operation (with 
proper linkage editing) can utilize the 
same programming to determine its storage 
allocation independently of its actual area 
assignment. 



TERMINATOR (CHARTS 08-15) 



A single program is terminated under its 
own control by issuing an EOJ, DUMP, or 
CANCEL macro or through operator action or 
a program error or certain I/O failures. 
When a single program is terminated, the 
following actions are taken: 
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1. All I/O operations that the program 
has requested are allowed to quiesce. 

2. Tape error statistics for all tape 
drives assigned to the program being 
terminated, and on which an error has 
occurred , are logged out on SYSLOG. 
Tape error statistics for all tape 
volumes assigned to the program being 
terminated can be logged on SYSLOG or 
stored on a disk file, depending on 
the user option chosen at system 
generation time. The statistic 
counters are reset. These features 
are system generation options. 

3. DASD extents used by this program for 
DASD file protection are dequeued. 
This feature is a system generation 
option. 

4. All I/O assignments made for the 
program are canceled so that these 



6. 



devices will be available to 
subsequent programs. The assignments 
are not canceled if they are to be 
held across jobs by the HOLD command. 



The operator is notified that the 
program is completed. The storage 
used by the program remains allocated 
for the foreground area. 



The program is detached from the 
system's task selection mechanism. 



See Figure 6 for an overall view of the 
terminator phases. 

After a foreground program is completed, 
the operator may initiate another program 
for the area by pressing the SYSLOG request 
key and continuing with the procedure 
described in Program Initiator. 
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Cancel 
Code (Hex) 



H 



10 
17 



18 



19 


0P74I 


1A 


0P73I 


IB 


0P82I 


1C 


0S14I 


ID 


0S12I 


IE 


0S13I 


IF 


0P81I 


20 


0S03I 




0S11I 


21 


0S04I 




0S09I 


22 


0S05I 




0S06I 


23 


0S02I 


24 


0S01I 


25 


| 0P77I 



33 


| 0P79I 


34 


| 0P84I 


35 


0P851 


40 


j 


80 





FF 


| 0P78I 


FF* 


| 0P83x 



Message 
Code 



0S02I 



or 



or 



or 



Descriptive Part of Message 
(or Condition) 



Normal EOJ 

(Same as 23 but causes dump 

because subtasks were attached 

when maintask issued CANCEL 

macro) 

(Eliminates cancel message 

when maintask issues DUMP 

macro with subtasks attached) 

I/O Operator Option 

I/O Error 

Channel Failure 

CANCEL ALL Macro 

Maintask Termination 

Unknown ENQ Requestor 

CPU Failure 

Program Check 

Illegal SVC 

Phase Not Found 



Program Request | ERR23 

Operator Intervention | ERR24 

Invalid address or insufficient! ERR25 
core allocation to a partition 
26** | 0P71I | SYSXXX Not Assigned | ERR26 

(unassigned LUB code) 

27 | 0P70I | Undefined Logical Unit | ERR27 

(invalid LUB code in CCB) 

28 | | (QTAM cancel in progress) | EXT02 

30 | 0P72I | Reading Past /& Statement | ERR30 

(on SYSRDR or SYSIPT) 

31 | 0P75I | I/O Error Queue Overflow | ERR31 

(error queue overflow 
or no CHANQ entry avail- 
able for ERP) 

32 | 0P76I | Invalid DASD Address (disk) | ERR32 

Irrecoverable I/O Error (tape) 
No Long Seek (disk) | ERR33 

I/O Error during fetch j ERRGO 
(unrecoverable I/O error 
during fetch of non$ phase) 
Job Control Open Failure 

(load $$BEOJ) | EXT 02 

(cancel occurred in LTA) | EXT02 
Unrecognized Cancel Code 
Supervisor Catalog Failure 

x x x 1 

All cancel-codes except in connection with DUMP-macro (code=X'00* 
is not a true cancel-condition) initially have a value X^O' 
higher than indicated above r but the X^O* bit is stripped by the 
SUPVR before fetching the Terminator. In addition to recognizing 
the cancel-codes above, the Terminator also recognizes the same 
codes with the X f 80' bit on. The X'80' bit is tested for by 
$$BEOJ and subsequently reset. 

♦This cancel code is not significant in case of a supervisor 
catalog failure, because the system is placed in a wait state 
without any further processing by the Terminator. Thus, there 
is no conflict between this cancel code and the preceding X f FF' 
cancel code. 
**If the CCB is unavailable, the logical unit is SYSxxx. 

L, 

Figure 2. Cancel Codes and Messages 



Label 



ERR10 



ERRGO 
ERR1C 
ERR1D 
ERR1E 
ERRGO 
ERR20 

ERR21 

ERR22 
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SP 




upper limit 




BG 


size 


upper limit 


NAME 


F2 


size 


upper limit 


NAME 


Fl T 


size 


upper limit 


NAME 



field 1 field 2 

Field 1 -area identification 



field 3 



field 4 



SP - supervisor 

BG - background area 

F2 - foreground area 2 

Fl - foreground area 1 

T - indicates which program has interval timer support. 



Field 2 - length of area 

The number of bytes allocated to the corresponding area 
of storage, where IK equals 1024 bytes of storage. 



Field 3 -area upper storage limit 

The highest storage address allocated to the corresponding 
area in decimal . 



Field 4 -user name 

BG - background job name 

F2 - foreground 2 program name 

Fl - foreground 1 program name 

Absence of a name indicates there is no active 
program in the area. 



552 -Byte Physical Transient Area 




The labels which are associated with these bytes are 
as designated below. Byte A is the first byte of the 
Physical Transient Area, Byte J is the last. Bytes B through 
H constitute the interphase communications area. When phases 
Z, Y and are fetched or refetched, these bytes (B through H) 
are not overlaid and remain with information for the other phases. 



Byte 


Label 


Phase 




A 


IJBPAR1 


Z 






IJBPAR2 


Y 


Note: Bytes C, D and E 




IJBPAR3 





are used to indicate the 
program(s) F1,F2 or BG, to be 


B 


PARLTK 


Z 


canceled. 




PARCOMM-1 




Bytes F, G and H 
indicate the programs 


C 


IJBPAR1+504 




which use devices which 




PARCOMM 


z 


require operator intervention. 




IJBPAR2+504 




Byte B indicates if a 




PARCOMM2 


Y 


canceled program has 




PARCOMMC 


Z 


fetched a logical transient. 




PARCOMMD 


Y 





F PARCOMMI Z 

PARCOMMJ Y 

PARCOMMC+3 
PARCOMMD+3 

D, E, Addressed by incrementing or decrementing one of these labels. 
G,H 



Figure 4. 



Figure 3. MAP Output 



Interphase Communication Area 
(For A-Transients $$ANERRZ # Y, 
and 0) 
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ll 












// LI STIO 


SYS 












AAA 


BACKGROUND *** 


I/O UNIT 


CMNT 


CHNL 


UNIT 


MODE 


SYSRDR 









DC 




SYSIPT 









OC 




SYSPCH 









OD 




SYSLST 




1 




DA 




SYSLOG 









1 F 




SYSLNK 




1 




91 




SYSRES 




1 




92 




SYSSLB 




AA 


JA 


k* 




SYSRLB 




aa UA 


k* 




SYSREC 




1 




91 




U 












// LISTIO 


PROG 












AAA 


BACKGROUND *** 


I/O UNIT 


CMNT 


CHNL 




UNl\T 


MODE 


SYSOOO 









91 




SYS001 









91 




SYS002 









91 




SYS003 









91 




SYS004 




A A 


UA 


AA 




SYS005 




AA 


UA 


AA 




u 












// LISTIO 


F2 












AAA 


FOREGROUND 2 


AAA 


I/O UNIT 


CMNT 


CHNL 




UNIT 


MODE 


SYSRDR 




AA 


UA 


AA 




SYSIPT 




AA 


UA 


*A 




SYSPCH 




AA 


UA 


AA 




SYSLST 




AA 


UA 


A A 




SYSLOG 




AA 


UA 


AA 




SYSLNK 




AA 


UA 


A A 




SYSRES 




1 




92 




SYSSLB 




A A 


UA 


AA 




SYSRLB 




AA 


UA 


A A 




SYSREC 




1 




91 






AAA 


FOREGROUND 2 


AAA 


I/O UNIT 


CMNT 


CHNL 




UNIT 


MODE 


SYSOOO 




AA 


UA 


AA 




SYS001 




AA 


UA 


AA 




SYS002 




AA 


UA 


AA 




SYS003 




AA 


UA 


AA 




SYS004 




AA 


UA 


A A 




SYS005 




AA 


UA 


AA 




SYS006 




AA 


UA 


AA 




SYS007 




AA 


UA 


AA 




SYS008 




AA 


UA 


AA 




SYS009 




AA 


UA 


AA 




SYS010 




AA 


UA 


AA 




SYS01 1 




AA 


UA 


AA 




SYS012 




AA 


UA 


AA 




SYS013 




AA 


UA 


AA 




SYS014 




AA 


UA 


AA 




SYS015 




A A 


UA 


AA 





Note: The 1st line of each sample shows the control 
statement as it was logged by job control. 

1 . List all system units. 

2» List all bac kg round programmer units. 

3. List all foreground 2 units. 

4. List all units. 

5. List a specific unit (SYSXXX). 

6. List the logical units assigned to all physical 
devices. 

7. List all unassigned units. 

8. List all down units. 

9. List all logical units assigned to a specified 
physical unit. 



±1 








// LISTIO 


ALL 








*** BACKGROUND *** 


I/O UNIT 


CMNT CHNL 


UNIT MODE 


SYSRDR 







OC 


SYSIPT 







OC 


SYSPCH 







OD 


SYSLST 


1 




OA 


SYSLOG 







1 F 


SYSLNK 


1 




91 


SYSRES 


1 




92 


SYSSLB 


AA 


UA 


AA 


SYSRLB 


AA 


UA 


AA 


SYSREC 


1 




91 




*** BACKGROUND *** 


I/O UNIT 


CMNT CHNL 


UNIT MODE 


SYSOOO 


A A 


UA 


AA 


SYS001 


1 




91 


SYS002 


1 




91 


SYS003 


1 




91 


SYSOOA 


AA 


UA 


AA 


SYS005 


A A 


UA 


AA 


SYS006 


AA 


UA 


AA 


SYS007 


AA 


UA 


AA 


SYS008 


AA 


UA 


AA 


SYS009 


AA 


UA 


AA 


SYS010 


AA 


UA 


AA 


SYS01 1 


AA 


UA 


AA 


SYS012 


AA 


UA 


AA 


SYS01 3 


A A 


UA 


AA 


SYSOU 


AA 


UA 


AA 


SYS015 


AA 


UA 


AA 




AAA FOREGROUND 2 *** 


I/O UNIT 


CMNT CHNL 


UNIT MODE 


SYSRDR 


AA 


UA 


AA 


SYSIPT 


AA 


UA 


AA 


SYSPCH 


AA 


UA 


AA 


SYSLST 


AA 


UA 


AA 


SYSLOG 


AA 


UA 


AA 


SYSLNK 


AA 


UA 


AA 


SYSRES 


1 




92 


SYSSLB 


AA 


UA 


AA 


SYSRLB 


AA 


UA 


AA 


SYSREC 


1 




91 




*** FOREGROUND 2 *** 


I/O UNIT 


CMNT CHNL 




JNIT MODE 


SYSOOO 


AA 


UA 


AA 


SYS001 


AA 


UA 


AA 


SYS002 


AA 


UA 


AA 


SYS003 


AA 


UA 


AA 


SYS004 


A A 


UA 


AA 


SYS005 


AA 


UA 


A A 


SYS006 


AA 


UA 


AA 


SYS007 


AA 


UA 


AA 


SYS008 


AA 


UA 


AA 


SYS009 


AA 


UA 


AA 


SYS010 


AA 


UA 


AA 


SYS011 


AA 


UA 


AA 


SYS012 


AA 


UA 


AA 


SYS013 


AA 


UA 


AA 


SYS014 


AA 


UA 


AA 


SYS015 


AA 


UA 


AA 




AAA FOREGROUND 1 *** 


I/O UNIT 


CMNT CHNL 


UNIT MODE 


SYSRDR 


AA 


UA 


AA 


SYSIPT 


AA 


UA 


AA 


SYSPCH 


AA 


UA 


AA 


SYSLST 


AA 


UA 


AA 


SYSLOG 


AA 


UA 


AA 


SYSLNK 


AA 


UA 


AA 


SYSRES 


1 




92 


SYSSLB 


A A 


UA 


A A 


SYSRLB 


A A 


UA 


AA 


SYSREC 


1 




91 





*** FOREGROUND 1 *** 


I/O UNIT CMNT 


CHNL 


UNIT MODE 


SYSOOO 






AA 


UA ** 


SYS001 






AA 


UA ** 


SYS002 






AA 


UA ** 


SYS003 






AA 


UA ** 


SYS004 






AA 


UA ** 


SYS005 






AA 


UA ** 


SYS006 






AA 


UA ** 


SYS007 






AA 


UA ** 


SYS008 






AA 


UA ** 


SYS009 






A A 


UA ** 


SYS01 






A A 


UA ** 


SYS01 1 






AA 


UA ** 


SYS012 






AA 


UA ** 


SYS013 






AA 


UA ** 


SYS01A 






AA 


UA ** 


SYS015 






AA 


UA ** 


u 










// LISTIO SYSRDR 








*** BACKGROUND *** 


I/O UNIT CMNT 


CHNL 


UNIT MODE 


SYSRDR 









OC 


U 










// LISTIO UNITS 








CHNL 


JNIT 


OWNER 


I/O UNIT CMNT MODE 





OC 


BG 




SYSRDR 





OC 


BG 




SYSIPT 





OD 


BG 




SYSPCH 





OE 






A UA * 





1 F 


BG 




SYSLOG 





1F 


BG 




SYSIN 




OA 


BG 




SYSLST 




90 






* UA * 




91 


BG 




SYSLNK 




91 


BG 




SYSREC 




91 


BG 




SYS001 




91 


BG 




SYS002 




91 


BG 




SYS003 




91 


F2 




SYSREC 




91 


F1 




SYSREC 




92 


BG 




SYSRES 




92 


F2 




SYSRES 




92 


F1 




SYSRES 




80 






A UA * 




81 






a UA * 




82 






A UA * 




83 






A UA * 




Sk 






* UA * 


ZJ 










// LISTIO UA 










*** UNASSIGNED 


SrAA 




CHNL 


UNIT 






1 




80 






1 




81 






1 




82 






1 




83 




u 










// LISTIO DOWN 










AA* 


DOWN *** 




CHNL 


UNIT 






AA 


NONE ** 




*1 










II LISTIO X@01F@ 






CHNL 


UNIT OWNER I/O UNIT CMNT MODE 





1F 


BG 




SYSLOG 



Figure 5. List I/O Examples 
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I 2 I f TERMINATOR J 



$$BEOJ3 



$$BEOJ3-$$BEOJ5 
Dequeues I/O de- 
vices. Disables T/P 
devices . Frees any 
tracks held by the 
task or partition . 



$$BEOJ 



$$BEOJ 

Determines cancel 
cause and calls 
proper subsequent 
program . 




$$BATST3 
Handles EOJ 
functions associated 
with AUTOTEST 




Unbatch 
FG 



NO 



f SVC 1 1 J 



SVC 39 

Detach the subtask 
FREE any tracks 
held by it^ 



f SVC 1 1 J 



$$BTERM 

Detaches attention 
routine if it was the 
program being 
canceled; otherwise 
writes EOJ message 
Unassigns I/O 
associated with 
program unless this 
function is over- 
ridden by a job 
control command - 
hold. 




$$BEOJl 
Writes special 
message if logical 
transient is 
canceled 



other cause 



$$BPCHK 

Writes message about 
storage location and 
cause of program 
check interruption. 



( SVC 1 1 J 



$$BILSVC 

Write message when 
phase not found or 
illegal SVC issued 
by program . 



$$BEOJ2-$$BEOJ2A 



Writes message 
describing cause 
of cancelation . 



YES 



( SVC 11 "\ 
I Wait State J 



* As specified at system generation 





$$BPSW 

If cancel code = 
X'18', branch. 
Otherwise, gives 
status of canceled 
program by printing 
user's PSW. 



Figure 6. Terminator Phases (Part 1 of 3) 



18 DOS Logical Transients 



f PDUMP macro ^\ 
V issued J 



Standard 



$$BPDUMP 

Tests macro parameters, analyzes I/O . 

Calls actual dump program. 



SYSLST 



is disk L 



SYSLST is tape or printer 




* As specified at system generation 



Translating 



$$BPDUMP 

Tests macro parameters, analyzes I/O 
calls, and writes on SYSLST registers 
and portion of main storage specified . 
SYSLST may be disk, tape, or printer. 



$$BDUMPD 

Writes registers and portion of main 

storage specified by PDUMP macro. 



$$BPDUM1 

Writes registers and portion of main 

storage specified by PDUMP macro. 



f SVC 11 ) 



f SVC 1 1 J 



$$BDUMP* 



NO 




$$BDUMP 
Tests for BG or FG 
and subtask, I/O 
to use, calls proper 
dump program . 




o 



YES 



$$BDUMPF** 
Writes on tape or 
printer: headers, 
registers, Supervisor 
and FG portions of 
main storage. 



$$BDUMPD** 
Records on disk: 
headers, registers, 
COMREG, Supervisor 
and BG portions of 
main storage. 



$$BDUMPB** 
Writes on tape or 
printer: headers, reg- 
isters, COMREG, Su- 
pervisor and BG por- 
tions of main storage. 



** Standard System Dump 



$$BEOJ3 



Simulate 

normal 

EOJ 



$$BEOJ3 



Figure 6. Terminator Phases (Part 2 of 3) 
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Simulate normal 
EOJ 



$$BDUMPD* 
Records on disk: headers, 
registers, COMREG 
address, Supervisor, CE 
Area, and BG or FG 
portions of main storage . 



$$BDUMPB* 

Writes on tape or printer: 
headers, registers, 
COMREG address, Super- 
visor, CE Area, and BG 
or FG portions of main 
storage . 



T 

$$BEOJ3 



* Translating System Dump 



Figure 6. Terminator Phases (Part 3 of 3) 
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LOGICAL TRANSIENT SUPERVISOR CALLS 



SUPERVISOR CALLS 



supervisor, 
wait state. 



the system enters the 



SVC is detected by microprogramming , which 
loads the SVC new PSW from core storage 
location 96. Certain SVCs are involved in 
processing B-transient operations. This 
section describes those supervisor calls 
which are directly used in logical 
transients. 

For reference purposes. Figure 7 
contains a list of all SVCs used in the 
system. Refer to the Supervisor and 
Related Transients PLM listed in the 
Preface for an explanation of the SVCs 
outside the scope of this manual. 

SVC 2 ; Fetches a B-transient. Loads a 
B-transient program (phase name prefix 
equals $$B) from the system core image 
library or a private core image library 
(see Notes, item 1) to the B-transient area 
(refer to Figure 1) , and enters the 
B-transient at its load address plus 8 
bytes. The storage address of the 
B-transient phase name must be supplied in 
general register 1. 

An address in general register is 
ignored. The B-transient is loaded at the 
beginning address of the B-transient area. 
General register 15 is loaded with this 
address and may be used by B-transients as 
a base register. Return may be either to 
the interrupted program or to the highest 
priority program ready to run. 

Only one program can use the B-transient 
area at a time. If the B-transient program 
is SVC 7 bound, another program is 
selected. This program becomes SVC 2 bound 
(waiting for the B-transient area) if it 
issues an SVC 2. Another program is then 
selected. 



Notes : 



If PCIL (Private Core Image Library) 
is assigned, it is searched first for 
the proper phase. If the phase is 
not found in the PCIL, the system 
core image library is then searched. 
When the first character of the phase 
name is $, the system core image 
library is searched first and the 
private core image library last. 

Supervisor may branch directly to the 
SVC 2 routine when fetching a 
B-transient. If the transient is not 
in the library when referenced by the 



SVC 6 : Cancels a program (task) or 
partition. If either a subtask or maintask 
(or only program in the partition) issues a 
CANCEL, cancel code X'23 % is posted to the 
PIB for the task issuing the cancel. If a 
CANCEL ALL is issued, cancel code X'lC' is 
posted. 

A simple cancel issued by a subtask 
performs the same function as DETACH (see 
SVC 39), but also posts the ECB's byte 2, 
bits and 1, and issues a subtask 
cancellation message. When CANCEL is 
issued by a maintask, the partition is 
canceled. 

A CANCEL ALL macro issued by a subtask 
cancels the entire partition. In this 
case, the AB exits for all tasks that have 
them are taken, except for the subtask 
issuing the CANCEL ALL. (Refer to Figures 
15-17 for the format of the PIB table, and 
to Figure 2 for cancel codes. ) The next 
time the canceled program is selected on 
general exit, the supervisor branches to 
the SVC 2 routine to fetch the cancel 
B-transient program $$BE0J3 if 
teleprocessing is supported, or $$BEOJ4 if 
teleprocessing is not supported. 

SVC 8 ; Supplies the supervisory support to 
temporarily return from a B-transient 
program to the problem program. The 
B-transient area is not released. The task 
selection exit loads the problem program 
registers. An SVC 9 is used to return to 
the B-transient program. 

SVC 9 ; Supplies the supervisory support 
for returning to the B-transient after an 
SVC 8 is issued. The task selection exit 
loads the B-transient registers. 

SVC 11 ; Returns from a B-transient 
releasing the B-transient area. SVC 11 is 
invalid if issued by other than a 
B-transient. The logical transient area is 
released for use by other programs or 
tasks. Return is to the highest priority 
program ready to run. 

SVC 14 : This is the normal end of job 
(EOJ) . Cancel code X'lO" is posted to the 
PIB for the program issuing the SVC 14. 
Refer to Figures 15-17 for the format of 
the PIB tables. The next time the canceled 
program is selected on general exit, a 
branch is made to the SVC 2 routine to 
fetch the cancel B-transient program 



Logical Transient Supervisor Calls 21 



$$BEOJ3 if teleprocessing is supported, or 
$$BE0J4 if teleprocessing is not supported. 
Job control is loaded by $$BE0J to perform 
the end-of- job-step. 

SVC 22 : Seizes the system and provides a 
release from such a seizure. The SVC 22 is 
ignored if supervisor was generated without 
the MPS option. The program issuing an SVC 
22 is canceled if the PSW protection key 
field does not equal 0. (Only job control 
and B- transient programs can issue an SVC 
22.) 

The first SVC 22 issued seizes the 
system and the next one issued releases the 
system. The last byte of register 
replaces the system mask. If register is 
negative, the protection key is replaced by 
the protection key of the PIK. 

The task selection mechanism is altered 
by the first SVC 22 so that only supervisor 
or quiesce I/O tasks and the program that 
issued the SVC 22 can be selected. The 
next SVC 22 issued restores the task 
selection mechanism. The contents of the 
last byte of general register are again 
used as the system mask. 

Return from each SVC 22 is directly to 
the interrupted program. 

Note : 

• There is no way to cancel a program 
that has seized the system. 

• The program must have no pending I/O 
operations. 

• The program cannot issue supervisor 
calls while the system is seized. 

SVC 23 : Loads phase header. Retrieves the 
load address for a specified phase from the 
system core image directory or a private 



I core image library (PCIL). The program 
issuing an SVC 23 is canceled if supervisor 
was generated without the MPS option or if 
the PSW protection key does not equal 0. 
(Only job control and B-transient programs 
can issue an SVC 23.) 



The user must specify the address of the 
core image phase name in general register 1 
and the address where the load address is 
to be stored in general register 0. The 
main fetch subroutine scans the core image 
directory and retrieves the load address. 
If the phase is found in the directory, the 
load address (3 bytes) is stored at the 
address specified by general register 0. 
If the phase is not found, the supervisor 
returns control to the interrupted program. 



SVC 26 : Validate address limits. 



The 



program issuing an SVC 26 is canceled if 
the PSW protection key does not equal 0. 
(Only job control and B-transient programs 
can issue an SVC 26.) 



The upper address must be specified in 
general register 2, and the lower address 
must be specified in general register 1. 
The upper address must be within main 
storage, and the lower address must be 
higher than the end of supervisor address, 
or the program is canceled (ERR25) . Return 
is to the interrupted program. No task 
selection is performed. 



With MPS option, the PIK of the program 
issuing the SVC 26 must equal the storage 
protection key for both addresses or the 
program is canceled (ERR25). 

With batch operation, SVC 26 is ignored 
unless storage protection has been 
specified. 
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Macro Supported 


SVC 


Function 


EXCP 





Execute channel programs. 


FETCH 


1 

2 
3 


Fetch any phase. 

Fetch a logical transient (B- transient). 

Fetch or return from a physical transient (A- transient). 


LOAD 


4 


Load any phase. 


MVCOM 


5 


Modify supervisor communications region. 


CANCEL 


6 


Cancel a problem program or task. 


WAIT 


7 


Wait for a CCB or TECB. 




8 


Transfer control to the problem program from a logical transient (B- transient). 


LBRET 


9 


Return to a logical transient (B- transient) from the problem program after a SVC 8. 


SETIME 


10* 


Set timer interval . 




11 
12 
13 


Return from a logical transient (B- transient). 

Logical AND (Reset) to second job control byte (displacement 57 in communications region). 

Logical OR (Set) to second job control byte (displacement 57 in communications region). 


EOJ 


14 


Cancel job and go to job control for end of job step. 




15 


Same as SVC except ignored if CHANQ table is full. (Primarily used by ERP). 


STXIT (PC) 


16* 


Provide supervisor with linkage to user's PC routine for program check interrupts. 


EXIT (PC) 


17* 


Return from user's PC routine. 


STXIT (IT) 


18* 


Provide supervisor with linkage to user's IT routine for interval timer interrupts. 


EXIT (IT) 


19* 


Return from user's IT routine. 


STXIT (OC) 


20* 


Provide supervisor with linkage to user's OC routine for external or attention interrupts (operator communications). 


EXIT (OC) 


21* 


Return from user's OC routine. 




22* 
23* 


The first SVC 22 seizes the system for the issuing program by disabling multiprogram operation. The second SVC 22 

releases the system (enables multiprogram operation) . 

Load phase header. Phase load address is stored at user's address. 


SETIME 


24* 


Provide supervisor with linkage to user's TECB and set timer interval. 




25* 
26* 
27* 


Issue HALT I/O on a teleprocessing device. 

Validate address limits. 

Special HIO on teleprocessing devices. 


EXIT (MR) 


28* 


Return from user's stacker select routine (MICR type devices only). 




29* 


Provide return from multiple wait macros WAITF and WAITM (except MICR type devices). 


QWAIT 


30* 


Wait for a QTAM element. 


QPOST 


31* 

32 

33 

34 


Post a QTAM element. 

Reserved. 

Reserved for internal macro COMRG. 

Reserved for internal macro GETIME. 



* = optional 

Figure 7. DOS Supervisor Calls (Part 1 of 2) 
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Macro Supported 


SVC 


Function 


HOLD 


35* 


Hold a track for use by the requesting task only. 


FREE 


36* 


Free a track held by the task issuing the FREE. 


STXIT (AB) 


37* 


Provide supervisor with linkage to user's AB routine for abnormal termination of a task. 


ATTACH 


38* 


Initialize a subtask and establish its priority. 


DETACH 


39* 


Perform normal termination of a subtask. It includes calling the FREE routine to free any tracks held by the subtask 


POST 


40* 


Inform the system of the termination of an event and ready any waiting tasks. 


DEQ 

\ 


41* 


Inform the system that a previously enqueued resource is now available. 


ENQ 


42* 


Prevent tasks from simultaneous manipulation of a shared data area (resource). 




43* 


Provide supervisor support for external creation and updating of SDR records. 




44* 


Provide supervisor support for external creation of OBR records. 




45* 


Provide emulator interface. 




46* 


Provide OLTEP with the facility to operate in supervisory state. 




47* 


Provide return from wait multiple WAITF for MICR type devices. 




48 


Reserved . 




49 


Reserved . 




50 


Reserved for LIOCS error recovery. 



* = optional 

Figure 7. 



DOS Supervisor Calls (Part 2 of 2) 
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CHARTS 



Chart 01. Overview of Supervisor Entry into B-Transients 
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Chart 02. Logical Transient Root Phase 
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03, 04, 07 $$BATTNA 



ROOT PHASE 



Charts AA to AD 



This phase performs the same functions as the root 
phase described for the Program Initiator. Input and 
Process Control statements or exit if no more state- 
ments are found. 
I 




MSG 



CANCEL 



PAUSE 



LOG 



NOLOG 



IGNORE 



MAP 



ALLOC 



BATCH 



START 



TIMER 
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NOTE: If foreground initiation is in process, the root phase remains 
logical transient area and the initiating routines are loaded 
from the foreground area of the program being initiated. 



ROOT PHASE 



Charts AA to AD 



This phase functions as the root phase. It contains the 
various subroutines used by the other phases and 
defines the storage areas and constants common to the 
other phases. Basic functions performed by the 
subroutines of this phase are: 



Input and process control statements. 



• Determine, and if necessary, load the proper phase 
required to process the control statement. 

• Pass control to the correct routine within the 
processing phase by means of a branch vector table. 

• Scan the control statements and provide address and 
length information on operation fields and operands. 

• Output error messages as required by the validity 
checking routine. 
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Chart 03. Logical Transient Attention Routines (Part 1 of 2) 



$$BATTNB 



MSG and EXTERNAL INTERRUPT KEY PROCESSORS 



Charts AE,AF 



This phase selects the correct operator communications routine: 

• MSG processor -selects current operator communications option table from the two 
foreground tables and establishes linkage to the selected foreground user routine. 

• EXTERNAL INTERRUPT KEY processor -establishes linkage to the background operator 
communications routine . 

When the selected operator communications routine is busy, the phase sets the complement 
of the address In the option table. 



$$BATTNC 



PAUSE/LOG/NOLOG/IGNORE PROCESSORS 



Chart AJ 



This routine sets switches in the communications region and in FLGBYO: 

• PAUSE -Turn on job control switch bit for PAUSE at COMREG+56 or for PAUSE -at -EOJ 
at COMREG+59 in BG, F2, or Fl communications region. 

• LOG/NOLOG -Set job control switch bit for LOG (on) or NOLOG (off) at 
COMREG+56. 

• IGNORE -Set switch bit in FLGBYO for SYSRDR input after a READ is issued. 



$$BATTNC 



CANCEL PROCESSOR 



Charts AG, AH 



This routine finds the key of the program identified by the operand of the cancel statement. 
Depending on the key found, this phase: 

• Cancels the program currently being executed in a specified area, in a multiprogramming 
environment; 

• Cancels the background program in a batched -only system; 

• Cancels the initiation process implicitly in a multiprogramming environment; 

• Cancels the background program implicitly in a multiprogramming environment if no 
initiation is in progress. 

Cancellation is accomplished by setting the cancel flag in the PIB of the program to be 
canceled. If the cancel phase is being canceled, control is released to supervisor via an 
SVC 11 . 




MAP PROCESSOR 



Charts AK to AM 



This phase prints a listing or SYSLOG output of the current main storage allocated to, and 
the program active in, all three problem program areas (BG, F2, or Fl) and the 
supervisor. Main storage allocation is mapped in terms of IK blocks as determined from 
the appropriate PIB, using the EBCDIC. Active areas are designated by mapping the 
program names. Area indicators (SP, BG, F2, or Fl) and the upper address of each are 
also mapped. 



9 



$$BATTNA 
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Chart 04. Logical Transient Attention Routines (Part 2 of 2) 



$$BATTNE and $$BATTNF 



$$BATTNG 



ALLOC PROCESSOR 



Charts BA to BD 



This routine reallocates main storage according to the 
number of 2K blocks specified for one or both of the 
foreground areas by the operand of the ALLOC statement. 
To reallocate, this routine: 

1 . Builds a table containing the current number of 2K 
blocks, the lower limit address, the address of the 
save area, and the upper limit address. A separate 
table is built for the background area and each 
foreground area. The source information for the table 
entries is the program PIB; 

2. Updates the table built in step 1 with the information 
secured from the operand of the ALLOC statement. 
The operand value is converted to byte count which 
is used to calculate upper limit information. Upper 
and lower limits necessary to ensure contiguousness 
and the designated amount of main storage are 
calculated for each table entry and checked to 
overlap for active areas; 

3. Resets the PIB entries with storage key and origin 
information and storage keys of all program areas 
using the table entries as source information. 

4. Resets the uppermost address of BG, Fl, and F2 core 
in the communications region . 



m 



$$BATTNG and $$BATTNH ,r 



START PROCESSOR 



Charts BE to BH 



This routine initiates a foreground program. The operand 
of the START statement is obtained by the root phase 
scan subroutine. The proper key is calculated, the 
attention PIB is detached from task selection, and the 
initiator is attached as the foreground program. 
Subsequent initiator phases are executed from the 
foreground program area of the program being initiated. 
However, even though physically located in the 
foreground area, the subsequent initiator phases are 
logically considered as part of the transient attention 
routine. 



BATCH PROCESSOR 



Charts BE, BF 



This routine initiates a dormant background 
or batched foreground . If the operand is 
BG, the PIB for BG is set to X'83' . If the 
operand is F2 or Fl , Job Control is loaded 
into the specified foreground area. The PIB 
is flagged set to indicate batch -job -fore- 
ground mode and the corresponding PIB flags 
are set to X'81 1 (detached). The job control 
switch bit in COMREG+59 is set for "BATCH 
command just issued". 



$$BATTNN 



TIMER PROCESSOR 



Chart EG 



This phase changes the ownership of the interval timer 
routine based on the operand specified in the 
TIMER statement. 



02 
$$BATTNA 
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Chart 05. Logical Transient Initiator (Part 1 of 2) 



$$BATTNI 



$$BATTNK 



ASSGN PROCESSOR 



Charts CA to CG 



This phase makes a logical unit I/O assignment based on the logical 
unit specified in the operand of the ASSGN statement. The steps in 
making the assignment are: 

• Convert SYSXXX to a LUB displacement. 

• Scan for channel and unit information. 

• Make the assignment if IGN is found, or unassign the previous 
assignment if UA is found . 

• Calculate the new PUB entry address and PUB pointer based on 
channel and unit information. 

• Scan for either ALT or X'ss' indicating a tape device . 

• If an ALT operand is found, make an alternate assignment. 

• If a X'ss' is found, it is validity checked for correct format, con- 
verted to binary, and validity checked as a valid mode set value 
for either 7 -or 9 -track tape. The valid value is saved for use by 
the assign routine. 

• Assign the unit if there are no conflicts in ownership (non-DASD 
only). 

Assignments are made by a routine within this phase called the assign 
routine. A subroutine, UNPA is used to unassign the previous assign- 
ment. The new PUB pointer is put into the correct LUB entry. If the 
assignment was IGN, or it was to the same devices as SYSLOG, exit. 
If these conditions were not found, the PUB ownership flag and mode 
set byte are set prior to exiting . 



$$BATTNI 



UNA PROCESSOR 



Charts CH,C J 



This routine immediately unassigns the foreground unit assignments. 
The foreground area specified in the operand of this statement indicates 
the I/O units to be immediately unassigned. 
NOTE: SYSLOG and SYSRES may not be unassigned. 



$$BATTNJ 



LISTIO PROCESSOR 



Charts CK to CP 



This phase provides a listing on SYSLOG of the information pertaining 
to the correct status of logical unit I/O assignments. The root phase 
scan routine is used to get the operand (BG, Fl, F2, ALL, or UA). 

If BG, Fl, or F2 is specified, the appropriate system class and 
programmer class units are listed under the desired heading. If the 
operand ALL is specified all units are listed under their proper head- 
ings . 

If the operand specified is UA, an UNASSIGNED heading is 
established and each PUB is checked for the unassigned, not down 
conditions. If these conditions are found, the unit is listed as unas- 
signed. If no units are found unassigned the heading, NONE, is 
listed. 



volAplabalbl/dlbl PROCESSORS 



Charts DA to DG 



VOL - The sequence of the VOL statement is checked . The 1st 
parameter SYSXXX is tested, converted, and the symbolic 
unit address is saved in the label save area. The 2nd 
parameter, FILENAME, is tested and moved to the label 
output area. A switch is set to indicate that the VOL 
statement has been processed . 
(See Appendix D for format of labels on SYSRES.) 

TPLAB - The sequence of the TPLAB statement is checked. It must 
follow a VOL statement. If there is a continuation 
punch in column 72, a second statement is read into the 
input area contiguously with the first statement. There 
are 49 characters read from the first statement and an 
additional 20 characters from the second statement. If 
a continuation statement is not indicated, a default 
value is inserted at the end of the 49 -character record 
in the input area. The label is moved from the input area 
to the label output area. A switch is set to indicate that 
only a VOL statement may follow. 
(See Appendix D for format of labels on SYSRES.) 

TLBL - The sequence of the TLBL statement is checked, and de- 
fault values are inserted for all operands from the file ID 
through the expiration date. The file name operand is 
tested and moved to the label output area. The file ID 
and date operands are checked, converted, and moved 
to the output area. The date operand may be omitted or 
may be a retention period or an absolute date "yy/ddd" . 
All the remaining operands (file serial, volume sequence, 
file sequence, generation, and version numbers) are then 
checked and moved to the output area, in turn, over- 
laying the default values (the default values will remain 
for any missing operands). Default values are then in- 
serted for file security, block count, and system code. 
A switch is set to indicate that no other required state- 
ments are to come, and that neither TPLAB nor DLAB will 
be accepted . 
(See Appendix D for format of labels on SYSRES.) 

DLBL - The sequence of DLBL statement is checked and default 
values are inserted for all operands from FILE ID through 
DATA SECURITY. A default table is built to be used 
when processing the EXTENT statement(s). The FILE NAME 
operand is tested and moved to output area. The file ID 
and DATE operand are checked, converted, and moved 
to the output area. The DATE operand may be a retention 
period, an absolute date "yy/ddd", or may be omitted. 
If the file ID was omitted, the file name is inserted as a 
default value. The specified FILE TYPE code is inserted 
for SD, DA, or IS, and a switch is set to indicate that 
only EXTENT statement(s) may follow. If DSF is specified 
the DLBL is built by the attention routine with the data 
security indicator set on. 
(See Appendix D for format af labels on SYSRES.) 



$$BATTNA 
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Chart 06. Logical Transient Initiator (Part 2 of 2) 
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DLAB/XTENT PROCESSOR 



Charts DH-DN 



DLAB - The sequence of the D LAB statement is checked. It must 
follow a VOL statement. A continuation statement is re- 
quired. It is read into the input area contiguously with the 
first statement. The disk format 1 label is built in the label 
output area, one parameter at a time. The specified file 
type code is inserted for SD, DA, or IS and a switch is set 
on to indicate that a DLAB statement has been processed 
and only an XTENT statement can follow. 

XTENT - The sequence of the XTENT statement is checked. It must 
follow a DLAB statement or another XTENT statement. The 
parameters are processed one at a time. An XTENT state- 
ment is required for each extent to be defined for a given 
set of VOL and DLAB statements. The extents are built in 
a label output area and are written in the SYSRES 
VOLUME area. 



$$BATTNM 



EXEC PROCESSOR 



Charts EA to ED 



This phase determines the type of program to be executed by using the 
scan routine to get the operand. It tests a program switch to determine 
if any additional label information is to be output to the SYSRES label 
track. If necessary, it performs the I/O to write and verify the label 
data. 

This phase relocated parts of itself in the B -transient area of main 
storage. It clears main storage within the foreground program area 
except for the foreground save area. The foreground save area is 
initialized with the name of the program to be executed, the PSW 
values for that program and storage space for all registers used. 



C 



SVC 11 End of 
Initiation 



3 



$$BATTNM 



UCS PROCESSOR 



Charts EE to EG 



The 240 -character Universal Character Set (UCS) specified by the 
operand "PHASENAME" is loaded in the buffer of the IBM 2821 
Control Unit of the logical unit specified by the operand "SYSXXX" . 
The phase is loaded from the Core Image Library. 
1 . The operand "SYSXXX" specifies a 1403 with the UCS feature. 

2. The operand "PHASENAME" specifies the core image library phase 
to be loaded . 

3. The operand "FOLD" (optional) specifies that the buffer is to be 
loaded with the "folding" operation code (hex F3) in the 3rd CCW. 

4. The operand "BLOCK" (optional) specifies that data checks are to 
be inhibited. The inhibit data check operation code, X'73 1 , is 
set ?n the 2nd CCW. 

5. The operand "NULMSG" (optional) specifies that the 80 -character 
verification message is not to be printed . The chain bit is set off 
in the 3rd CCW . 



EXTENT/LBLTYP PROCESSORS 



Charts EH to EN 



EXTENT - The sequence of the EXTENT statement is checked, and de- 
fault values are set from the default table built by the DLBL 
statement processor for vol. serial, extent type, seq. no., 
upper and lower extent limits, logical unit, and bin no. The 
operands are then processed and overlay the default values. 
If the operands are omitted, the default values remain. 
When extent processing is complete, the extents are written 
in the volume area on SYSRES. 

LBLTYP - 1 . If the first operand is TAPE the size of the label area is 
set to 80 bytes . 
2. If the first operand is "NSD" the second operand (nn) is 
used to calculate the number of bytes required to contain 
the specified number of extents. This computed value 
plus 84 bytes determines the size of the label area. 



$$BATTNP 



READ/HO LD/RELSE PROCESSORS 



Charts EP to EQ 



READ - This routine assigns a card reader or reader/punch to the logical 
unit SYSRDR. Control statements following this assignment are 
read from SYSRDR instead of from SYSLOG . 

HOLD - This routine causes the foreground unit assignments for the 

foreground area specified in the operand to stay in effect from 
one job to the next. 

RELSE - This routine releases foreground unit assignments at EOJ. The 
foreground area specified in the operand of this statement 
indicates the I/O units to be unassigned. 



$$BATTNA 
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Chart 07. MODE Command Processor 



$$BATTNQ 



MODE COMMAND PARAMETER PROCESSOR 



Charts PA,PB 



This phase checks the parameters of the MODE command: 

Valid parameters set indicators in the $$BATTNA I/O buffer. 
'STATUS' parameter causes load of $$BATTNR phase. — — 



Parameters are isolated by using $$BATTNA scan routine. 

'E' and T values are checked for validity, given binary values, 
and saved in regs. 4 and 12, respectively. 

Maximum length of command is 27 bytes. 

Error messages report MODE command format violations via $$BATTNA. 

When scanning of parameter is completed, $$BATTNQ loads $$BATTNS. 



$$BATTNS 



MODE COMMAND VALIDITY CHECKER Charts PE,PF 



This phase checks for valid combinations of 
parameters. Error messages report invalid parameter 
groupings. Valid parameters are posted in the 
RMS table, RASTAB, byte MCMODE (see Figure 32). 
The phase posts, if specified, in RASTAB: 

1 . Mode changes 

2. Error count threshold 

3. Time threshold 



W 



$$BATTNA 



$$BATTNR 



MODE COMMAND STATUS REPORT PROCESSOR Charts PC,PD 



This phase formulates and prints system status reports 
on SYSLOG. It gets information from RASTAB 
and the RAS Linkage Area. After processing the status 
report, it returns to control in $$BATTNA. 



^ 



$$BATTNA 
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Chart 08. Logical Transient Terminator (Part 1 of 8) 



Called by Supervisor if teleprocessing 
not supported 

C $$BEOJ4 J 



QUIESCE I/O NON - T/P DEVICES 



Chart FM 



If asynchronous processing (AP) is not supported, $$BEOJ4 
dequeues all nonteleprocessing I/O devices for the 
partition. If AP is supported, it dequeues those devices 
for the task. 

If EREP is running in the partition or task being canceled, 
the status bits for the recorder file (SYSREC) are reset 
to show their status at the time EREP was canceled. 

(See System Service Programs PLM, listed in the Preface , 
for the internals of the EREP program . ) 




TAPE ERROR STATISTICS 



Charts GA-GG 



Collects tape error statistics by volume and writes them 
to disk or printer as specified at SYSGEN. 



Called by the Supervisor if teleprocessing is supported. Also 
called by $$BDUMPB, D,F if standard system dump, or by 
$$BDUMP,B,D if Translating System Dump. 



( $$BEOJ3 j 



HALT I/O ON T/P DEVICES 



Chart FL 



T/P devices are disabled and halted (if on the queue) 
for a partition if asynchronous processing is not supported, 
or for a maintask if asynchronous processing is supported. 

If asynchronous processing is supported and a subtask 
owns the Logical Transient Area, the above functions 
are ignored and $$BEOJ4 is fetched immediately. 



( SVC 2 N 

V $$BEOJ4 J 





' Track 
Suppc 


Hold\ NO 






>rted yS 

f YES 




c 


SVC 2 ^\ 
$$BEOJ5 J 




> 


f 




RELEASE HELD TRACKS Chart FN 




FREEsall tracks held 
by the partition. 


by the task (if AP is supported) or 




i 








f 



f SVC2$$BEOjA 
V^ Chart 09 J 
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Chart 09. Logical Transient Terminator (Part 2 of 8) 



START 



f $$BEOJ J 



ZERO MICR ADDRESSES Chart FA 



Zero MICR DTF fable addresses where 
applicable. 




Zero out user option table 
entries (Program Check, 
Interval Timer, and 
Operator Communications) 
if applicable. 




See Autotest PLM, 
GY24-5027 



YES 



Set QTAM field to zero 
if QTAM Message Con- 
trol is terminating 



If the task is a subtask, 
issue SVC 39 to DETACH 
the task and FREE any 
tracks held by the sub- 
task 





Load Job Control and 
Initialize its PSW 



SVC 2 
$$BTERM 



OUTAR 



DETACH ROUTINE 



Charts HA-HD 



1 . Attention Routine: Detach the routine and clear 
the cancel -code to X'00'. 

2. Normal EOJ for unbatched FG Job: Log message 
"Program Completed" and log tape error statis- 
tics for tape units assigned to actual FG program 
if so requested by SUPVR TEB - option. 
Unassign all units other than SYSLOG and 
SYSRES belonging to the program, unless this 
standard procedure has been overridden by the 
Job Control HOLD - command. Reset the 
Cancel - code. 

3. Abnormal FG - EOJ: Same as 2 except no 
message is logged . 



C 




SVC 2 
$$BQCNCL 



See QTAM PLM, 
GY30-5002 



C 



c 



SVC 11 Exit from 
B -Transient 



J 



C 




SVC 2 $$BEOJl 
Chart 10 



SVC 2 $$BPCHK 
Chart 11 



SVC 2 $$BILSVC 
Chart 11 



SVC 2 $$BEOJ2 
Chart 11 



Charts 33 



Chart 10. Logical Transient Terminator (Part 3 of 8) 



( $$BEOJl J 



CAUSE1 



SPECIAL CNCL MSG RTN 



Charts FE - FF 



Issues special messages for termination in a logical 
transient routine due to Program Check, Illegal SVC 
or Phase- Not- Found causes. The normal messages 
cannot be used because detailed information such as 
phase-name, SVC code, hex location, etc., is not 
available when the cancelation occurs in a logical 
transient routine. The issued message will have the 
sample format: 

0S091 JOB NAMEXXXX CANCELED DUE TO 
ILLEGAL SVC 



f SVC2$$BPSWj f 



$$BPSW 



IJBPSW20+8 



PROBLEM PROGRAM STATUS 



Charts JD - JE 



If a maintask with subtask(s) attached issued DUMP, 
this routine is bypassed. 



Gives status of the problem program area at the time 
of cancelation by printing the users PSW. The PSW 
is printed on SYSLOG in the sample format: 
0S071 PROBLEM PROGRAM PSW XXXXXXXXXX 
XXXXXX 



* As specified 
at system 
generation 



BDUMP 




** Translating System Dump 



STORAGE DUMP ROUTINE 



Charts KA-KC 



Determines and analyzes the cause of job termination 
and selects the proper B -Transient Dump routine or 
Terminates without a Dump under condition that a 
CANCEL macro call has been issued, the Job Control 
Switch in the Supervisor Communication Region calling 
for a Dump is not on, or SYSLST is not assigned. A 
dump is always given regardless of the setting of the 
Job Control Switch, if the user issues a Dump- macro 
and SYSLST is assigned . 




Simulate Normal 
End-of-Job 



A SVC 2 $$BEOJ3^V 
V Chart 08 J 
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Chart 11. Logical Transient Terminator (Part 4 of 8) 



C $$BPCHK J 



START 



C $$BILSVCj 



IJBSVC33 +8 



PROGCHK MSG RTN 



Charts JF-JG 



Writes a message on 

SYSLOG or SYSLST giving 

information about the 

program check. The msg 

is 2 lines in the 

sample format: 

0S03I PROGRAM CHECK 

INTERRUPTION - HEX 

LOCATION xxxxxx - 

CONDITION CODE nn - 

FLOATING POINT DIVIDE 

EXCEPTION 

0S00I JOB NAMEXXXX 

CANCELED 



ILLEGAL SVC RTN 



Charts JA-JC 



">T^ 



Processes an invalid 
SVC or Phase-Not-Found 
condition. The message 
is printed on SYSLOG 
(1052 or Printer) if 
SYSLOG is assigned, but 
not assigned to the 
same unit as SYSLST. 
The message(s) is 
printed on SYSLST (print- 
er, tape, or disk) if 
SYSLST is assigned. 
The issued message will have 
the sample format: 
0S04I ILLEGAL SVC-HEX 
LOCATION xxxxxx-SVC CODE 
xx 

0S00I JOB NAMEXXXX 
CANCELED 



T 

(SVC $$BDUMP *\ 
Chart 10 J 



C $$BEOJ2 *\ 

\ ^ $$BEOJ2A J 



CAUSE! 



CANCEL MSG RTN 



Charts FG-FK 



Prints or records a message 
describing the reason for 
cancelation when a program 
reaches an abnormal end-of-job 
condition. The issued message 
will have the sample format: 
0P75 JOB NAMEXXXX CAN- 
CELED DUE TO I/O ERROR 
QUEUE OVERFLOW 
If AP is supported and a main- 
task is terminating, the 
message issued will have the 
same format as above. If AP 
is supported and a subtask is 
terminating, the issued message 
will have the sample format: 
0P75 SUB NAMEXXXX CAN- 
CELED DUE TO I/O ERROR 
QUEUE OVERFLOW. 
The message is printed on SYSLOG 
(1052 printer) if SYSLOG is 
assigned, but not assigned to the 
same unit as SYSLST. 
The message(s) is printed on 
SYSLST (printer, tape, or disk) if 
SYSLST is assigned. 
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Chart 12. Logical Transient Terminator (Part 5 of 8) 



Standard System Dump 



( $$BDUMP * J 



BDUMP 



STORAGE DUMP RTN 



Charts LF-LG 



Determines and analyzes the cause of job termination 
and selects the proper B- Transient Dump routine or 
terminates without a Dump under condition that a 
CANCEL macro call has been issued, the Job Control 
Switch in the Supervisor Communication Region 
calling for a Dump is not on, or SYSLST is not 
assigned. A dump is always given regardless of the 
setting of the Job Control Switch, if the user issues 
a Dump- macro and SYSLST is assigned. The Job 
Control Switch in the Supervisor Communication 
Region calling for a dump is only tested for a dump 
for BG programs. 




SVC 2 $$BEOJ 
Chart 08 



) 



/SVC 2 $$BDUMPl5\ 
V Chart 1.5 J 



Simulate 
Normal EOJ 



/SVC 2 $$BDUMPB\ 
V Chart 15 J 
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Chart 13. Logical Transient Terminator (Part 6 of 8) 



f $$BDUMPB* J 



RELOCATE 



BG OR FG TAPE/PRINTER 
DUMP 



Charts KD-KH 



Records on tape or prints the contents of 
main storage at the time an abnormal end- 
of-job condition occurs. The printout of 
main storage is in the format: 
1 . Page heading (If the timer is supported, 
and is running, the time of day is 
printed on the first page in the heading .); 

2. General registers 0-7; 

3. General registers 8-15; 

4. Floating point registers, if present; 

5. Current COMREG address; 

6. Supervisor; 

7. CE Area, if present; 

8. Label length; 

9. BG or FG program identification; 
10. BG or FG program storage area. 

The entire supervisor and problem program 
area are printed in lines of 8 words of hex 
bytes followed by the same 32 bytes in 2 
groups of printable characters (48 character 
set). For identical words and lines, the first 
line contains the repeated word followed by 
— SAME — . Identical lines following are 
not printed. 



Q 



C BDUMPD* J 



RELOCATE 



* Translating System Dump 
RELOCATE 



( $$BPDUMP* J 



BG OR FG DISK DUMP 



Charts KJ-KN 



Records on disk the contents of main storage 
at the time an abnormal end-of-job condi- 
tion occurs. The printout of main storage 
is in the format: 
1 . Page heading (If the timer is supported, 
and is running, the time of day is 
printed on the first page in the heading.) 

2. General registers 0-7; 

3 . General registers 8-15; 

4. Floating point registers, if present; 

5. Current COMREG address; 

6. Supervisor; 

7. CE Area, if present; 

8. Label length; 

9. BG or FG program identification; 
10. BG or FG program storage area. 

The entire supervisor and problem program 
area are printed in lines of 8 words of hex 
bytes followed by the same 32 bytes in 2 
groups of printable characters (48 character 
set). For identical words and lines, the 
first line contains the repeated word fol- 
lowed by — SAME — . Identical lines 
following are not printed. 



SVC 2 
$$BEOJ3 Chart 08 



) 




PARAMETER -SPECIFIED 
DUMP 



Charts LA - LE 



Provides a means of dumping a portion of 
main storage as desired. Records on disk, 
tape, or printer the contents of main storage 
specified by the PDUMP macro. The print- 
out of main storage is in the format: 

1 . Page heading; 

2. General registers 0- 7; 

3. General registers 8-15; 

4. Floating point registers, if present; 

5. Program storage area specified by 
parameter limits. 

The problem program area is printed in lines 
of 8 words of hex bytes followed by the same 
32 bytes in 2 groups of printable characters 
(48 character set). For identical words and 
lines, the first line contains the repeated 
word followed by — SAME — . Identical 
lines following are not printed. 



C 



SVC 1 1 Exit from 
B- Transient 
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Chart 14. Logical Transient Terminator (Part 7 of 8) 



k As specified at system generation 




PARAMETER-SPECIFIED DUMP Chart NA 



Provides a means of dumping a portion 
of main storage as desired . Analyzes 
whether a Background or Foreground 
program is to be dumped. Tests the 
type of I/O device to receive the 
dump to determine which subsequent 
B-transient routine will be called 
to perform the actual dump. 



DISK 



( $$BDUMPD A 
V Chart 15 J 




TAPE/PRINTER 



f $$BPDUM1** J 



START 



k Standard System Dump 



TAPE/PRINTER PDUMP 



Charts NB-NE 



Records on tape or prints the contents 
of main storage at the time an abnor- 
mal end-of-}ob condition occurs. The 
printout of main storage is in the 
format: 

1 . Page heading; 

2. General registers 0-7; 

3. General registers 8-15; 

4. Floating point registers, 
if present; 

5. Program storage area specified 
by parameter limits. 

The problem program area is printed 12 
words to the line. For identical lines, 
the first line is printed and — SAME — 
is inserted for all identical lines 
following . 



SVC 1 1 Exit from 
B -Transient 



38 DOS Logical Transients 



Chart 15. Logical Transient Terminator (Part 8 of 8) 



* Standard System Dump 



f $$BDUMPF* J 



START 



FG TAPE/PRINTER DUMP Charts MA-MF 



Records on tape or prints the contents of 
main storage at the time an abnormal 
end -of- job condition occurs. The print- 
out of main storage is in the format: 

1 . Page heading 

2. General registers 0-7; 

3. General registers 8- 15; 

4. Floating point registers, if present; 

5. Partition communication region; 

6. Supervisor; 

7. CEArea; 

8. Label length; 

9. Fl or F2 program identification; 
10. FG program storage area. 

The entire Supervisor and problem pro- 
gram area is printed 12 words to the 
line. For identical lines, the first line 
is printed and — SAME — is inserted for 
all identical lines following. 




f $$BDUMPD* J 



START 



DISK DUMP 



Charts MM-MR 



Records on disk the contents of main 

storage at the time an abnormal end - 

of- job condition occurs. 

The printout of main storage is in the 

format: 

1 . Page heading; 

2. General registers 0-7; 

3. General registers 8- 15; 

4. Floating point registers, if present; 

5. Supervisor COMREG; 

6. Supervisor; 

7. CEArea; 

8. Label Length; 

9. BG program identificalion; 
10. BG program storage area. 

The entire Supervisor and problem pro- 
gram area is printed 12 words to the 
line. For identical lines, the first line 
is printed and — SAME — is inserted for 
all identical lines following. 



Simulate Normal 
End -of- Job 




NO 



f SSBDUMPB* J 



START 



BG TAPE/PRINTER DUMP Charts MG -ML 
Records on tape or prints the contents 
of main storage at the time an abnormal 
end -of- job condition occurs. The 
printout of main storage is in the 
format: 

1 . Page heading; 

2. General registers 0- 7; 

3. General registers 8-15; 

4. Floating point registers, if present; 

5. Supervisor COMREG; 

6. Supervisor; 

7. CEArea; 

8. Label length; 

9. BG program identification; 
10. BG program storage area. 

The entire Supervisor and problem pro- 
gram area is printed 12 words to the 
line. For identical lines, the first line 
is printed and — SAME — is inserted for 
all identical lines following. 



f SVC 2 $$BEOJ "\ 
V Chart 09 J 
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Chart AA. $$BATTNA - Nonresident Attention/Initiator Root Phase 
Refer to Chart 02. 



•••*A1********* 
• $$BATTNA • 



•••••Bl******«**« 

* SET UP BASE * 

* REGISTER * 

* VALUES FOR * 

* OSECT AND * 
•OVERLAY PHASES * 



•AB-G1 
AE-E3 
AG-H1 
BE-G5 
BF-J4 



**»*«B2 ********** 

* USE PIB TABLE * 

* ADDR PLUS * 

* DISPLACEMENT * 

* TO POINT TO * 

* ATTN PIB * 



DTCHAT X 

•****B4**** •*•••• 
•SET REGISTER * 
* TO SO * 
•SVC 22 DISABLES* 
•ALL INTERRUPTS * 



•*»««C1«* *•**•••• 

* LOAD THE * 

* ADDRESS OF • 

* ERROR ROUTINE • 
•INTO A REGISTER* 



•»**D1********4 

PUT ADDRESS 

OF SYSLOG 

INPUT .CCW INTO 

INPUT CCB 



EXTERNAL 

INTERRUPT 

. SWITCH . 



•»D2******* 

* SET 

* ATTN PIB 
• SWITCH 
•BYTE ■ X'08» 

* *H2 



»*«*D3 ********* 

* $$BATTNB « 
« AT EXT INT * 

* CHART AE * 



»*»**E1******** 

* PUT ADDRESS 

* OF SYSLOG 

* OUTPUT CCW 

* INTO OUTPUT 

* CCB 



SYSLOG 
EQUAL 
1052 



«F1* 



* PUT I/O * 
•BUFFER ADDRESS • 
•INTO A REGISTER* 

* AND INTO THE * 

* CCW ADDR FLD * 



Gl 

MULTIPLE 

— OGRAMMINi 

SUPPORT 



* SEND MESSAGE 



LOAD 

AOORESS OF 

PIB 



•NO 



•**««H !••*••••••• 

* MOVE A X'FF' * 
•INTO THE BRANCH* 

* VECTOR TABLE * 

* AS BATCH ONLY * 

* DELIMITER »J2 • 



•H2 
BYTE 8. BIT 4, 
DETACH $$BATTNA. 



X 
* 2 



*H3 
A X«07« IS MOVED TO 
THE ATTENTION ROUTINE 
PIB FLAG BYTE. 
EVENTUALLY THAT VALUE 
IS CHANGED TO A X*87* 
AND CHANGED AGAIN 
TO A X'81* WITHIN 
SVC 22 PROCESSING 
ROUTINES. 



DETACH 

TASK 

*D5 



•»D4******* 

SVC 22 

SEIZE THE 

SYSTEM 



THIS INSTRUCTION IS 
SET TC SVC 11 IF 

NC MPS. 



«»F4******* 



•*F5«****** 

•DETACH THE * 

• ATTEN PIB • 

♦ WITH X»05«, 

•TURN CM BYTE • 

8, BIT 4 «G5 



SVC 22 

"LEASE T 

SYSTEM 



•*«H4**« 

EXIT THIS 
B-TRANSIENT 
VIA SVC 11 



IN THE FORM 



»*J1«*«»»*« 
•MODIFY THE • 

• INSTRUCTION 

AT DTCHSZ 

• TO SVC 11 



A DISPLACEMENT VALUE USED ... 

THE FIRST EXECUTABLE INSTRUCTION WITHIN 
" - OAO 



... THIS IS 

IN LOCATING 
~ -TIO" 



HAVE MPSt THE TABLE CONTAINS ADDITIONAL 
ENTRIES. WHEN THE NONRESIDENT ATTENTION 
ROUTINE IS FUNCTIONING AS AN INITIATOR, 
ADDITIONAL TABLE ENTRIES ARE ATTACHEO 
BY $$BATTNH. 



• 1 • 

• « 
•••• 
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Chart AB. $$BATTNA - Control Routine 
Refer to Chart 02. 



***** 

*DA * 
* J4* 



*A2 
PC-B3,H3 t J4,J5 
PE-H4,H5 



****A1********* 

* * 

* CONTROL * 

* * 
*************** 



* A2* 
**** 
CONTROL 



RETURN 
FROM 
ALLOC 



**C1******* 
*CLEAR AODR * 
♦PROG CHK 0L0 
* PSW FROM 
* LINKR1 WITH 
* X'40' * 
*********** 



RESOP 

*****D1 ********** 

* RESET THE * 
♦OPERAND NUMBER * 

* IN LOCATION ♦ 

* OPNUMP TO * 

* ZERO * 
***************** 



*#***E1********** 
♦RDSTMT AC* 
*_*_*-*-*-*_*_*_* 

* CLEAR I/O ♦ 

* BUFFER AND * 
♦EXCP FOR INPUT * 
***************** 



.* INPUT *. NO 
*. BUFFER ALL .*... 
*. BLANK .♦ 



CHKSTT 

*****B3** ******** 

* PUT BUFFER * 

* ADDRESS AND * 
..X* BUFFER LENGTH ♦ 

* IN A PAIR OF * 

* REGISTERS * 
***************** 



*****C3********** 
♦SCANR1 AD* 
*-*-*-*-*-*-*-*-* 

* SCAN * 

* OPERATION * 

* FIELD * 
***************** 



*B4 
ON THE FIRST TIME THROUGH 
CONSIDER THE NEXT TABLE 
ENTRY AS THE FIRST ENTRY. 



* 1 *.X. 

* * 
**** 

CONTROL1 

*****B5********** 

* LOAD STARTING * 

* ADDRESS-8 OF * 

* BRANCH * 

* VECTOR TABLE * 

* * 
***************** 



* POINT TO * 

* THE NEXT * 

* TABLE ENTRY * 

* *B4 * 
***************** 



BLANK 

T END 

FIELD 



X 

.*. 
E3 *. 
.* FIELD *. 
LENGTH GT * 



*E2 



TABLE 
ENTRY EO 
.PARAMETER. 



*****F5********** 
♦PUT SUM OF BASE* 

* REG VALUE AND * 
♦DISPLACEMENT IN* 

* A REG, P0INT3 ♦ 

* *J«. * 
***************** 



START 


♦ . 


YES 


SSUED 




*.... 




• * 




.♦ 






♦ . .♦ 




X 


♦ NO 




***** 






♦BH ♦ 






♦ HI* 


X 




* * 


***** 




* 


♦AA ♦ 




CHKFG 


♦ B4* 






* * 







*****G3********** 

* MOVE THE * 

* OPERATION * 

* FIELD FROM * 

* THE BUFFER TO * 

* PARAMTR * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



****G4********* 

* NVSERR * 

* CHART AC * 

* * 
*************** 



*H4 

REG . __. 

THE OVERRIDING LOAD 
ADDRESS. REGISTER 1 
SUPPLIES THE ADDRESS 
OF THE PHASE NAME TO 
BE LOADED. 



CORRECT 
PHASE 
.RESIDENT 



*****H5********** 

* GET PHASE * 

* IDENTIFIER * 
*AND SUPPLY SVC * 

* 4 WITH ADDR * 
♦INFORMATION *H4* 
***************** 



*J4 
THE SUM OF BASRG2 
AND THE BRANCH 
VECTOR INDEX 
POINTS TO THE 
ADDRESS OF THE 
FIRST EXECUTABLE 
INSTRUCTION. 



****J5********* 

* SVC 4 * 

* LOAD CORRECT * 

* PHASE * 
*************** 



****K5********* 

* BRANCH TO * 

* ADDRESS IN * 

* P0INT3 *J4 * 
*************** 
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Chart AC, $$BATTNA - Root Phase Subroutines 
Refer to Chart 02. 



**** 

* * 

* i * 



****A1********* 

* * 

* ERRRTN * 

* * 
*************** 



.♦ WAS 
START 
*. ISSUED 



*****d********** 

♦ERRRTN1 BH* 
*_*_*_*_*_*.t*_*_* 

* PROCESS * 

* START * 

* ERROR * 
******* 



****A2********* 

* * 

* EXCPRG * 

* * 
*************** 



****A4********* 

* * 

* RDSTMT * 

* * 
*************** 



************ 



****B 3** ******* 

* * 

* DTI NUN * 

* * 
*************** 



********** 



NULLOG X 

*****D1 ********** 

* PUT * 

* ERROR-MESSAGE * 

* INTO THE * 

* OUTPUT BUFFER * 

* *F2 * 
***************** 



*****Ei********** 

* PUT LENGTH * 

* OF ERROR * 

* MESSAGE INTO * 

* SYSLOG * 

* CCW * 
***************** 



OPNUMB 

*****Pl********** 

* PUT OPERAND * 

* NUMBER INTO * 

* MESSAGE AND * 

* SET UP REG 1 * 
♦WITH SYSLOG CCB* 
***************** 



****££*********** 

EXCPRG AC 
*_*_*_*_*_*_*_*_* 

SEND 
* ERROR MSG * 
*G2 
***************** 



**H1******* 

* TURN ON * 

* SYSRDR 
INDICATOR IN 

* FLGBYO 

* *K1 * 
*********** 



****jl********* 

* CONTROL * 

* CHART AB * 

* * 
*************** 



* TRAFFIC 

BIT POSTED 
*. IN CCB . 



****D2 ********* 

* SVC 7 * 

* WAIT * 

* * 
*************** 



****03********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



*F2 
THE MESSAGE IS MOVED 
TO THE OUTPUT BUFFER 
BY EXECUTING THE 
MOVE INSTRUCTION 
THAT FOLLOWS THE 
BAL TO THE 
ERRRTN SUBROUTINE. 



*G2 
•1SO0D 
INVALID 
STATEMENT'. 



* SET UP REG 1 

* WITH THE 

* SYSLOG-CCB 

* ADDRESS 
*************** 



RDR 
INPUT 
*D5 



*****E4********** 



***************** 



****F4*********** 

EXCPRG AC 
*_*_*_*_*_*_*_*_* 

PERFORM 
* I/O * 
EXCP 
***************** 



**** A 5 ********* 

* * 

* NVSERR * 

* * 
*************** 



**** 
NVSERR X 

*****B5********** 

♦ERRRTN AC* 
*_*_*-.*_*_*_*_*_* 

♦ SEND ♦ 

♦ ERROR * 

♦ MESSAGE ^G2 ♦ 
***************** 



****C5********* 
♦EXIT VIA ERRRTN+ 

♦ TO LOCATION * 

♦ CONTROL ♦ 
*************** 



♦D5 
TESTS FLGBYO 
TO DETERMINE 
IF A CARD READER 
OR 1050 DEVICE 
WILL BE USED 
TO ACCEPT INPUT 
STATEMENTS. THE 
SWITCH THAT 
INDICATES DEVICE 
TYPE IS SET IN 
PHASE $$BATTNP. 



UNIT 
EXCEPTI 
.POST 



CCB .♦ 

.♦ 

♦ NO 



INPUT 

BUFFER 

.ALL BLANK. 



INPUT 

ON 

SYSRDR 



*****j5********** 

♦LOGGER BH^ 
*_*_*_*_*_*..*_*_* 

.X^ LOG INPUT ♦ 

♦ STATEMENT ♦ 

♦ ON SYSLOG ♦KS ♦ 
***************** 



♦ Kl 
SET FLAG FOR 
SYSLOG INPUT. 



****K4********^ 

♦ RETURN TO ♦ 

♦ ADDRESS IN ♦ 

♦ LINK REG ♦ 
*************** 



THIS IS A BRANCH, IN 
THE PROGRAM, BUT IS 
SHOWN HERE AS A BAL 
TO BETTER DESCRIBE 
THE LOGIC FLOW. 
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Chart AD. $$BATTNA - General Scan Routines 
Refer to Chart 02. 



*» #A2 »•»»* 
SCANRL 



SCANR3 



*».#»B1< 

•LOAD REGISTERS * 

•WITH CHARACTER • 

* ADDRESS AND • 

* REMAINING • 

* BUFFER LENGTH * 



»»..*B3< 

• LOAD P0INT1 

• AND POINT2 
•WITH CHAR ADDR 

• AND REMAINING 

• BUFFER LENGTH 



SCANR1 X 

• ZERu PARAMETER** 
•LENGTH REGISTER* 

• AND RESET THE • 

• SCAN-STOP • 
« CHARACTER * 



SCNRL1 . : 



CHARACTER •. NO 
IN BUFFER A .♦... 
. BLANK .» 



»»*»«E1»**«****«» 

• ADD ONE TO * 
♦THE ADDRESS IN • 
•POIiMTl SO THAT • 

• IT POINTS TO • 
•THE NEXT CHARAC« 



• E2 
THE ORING OF A 
HEX '40' FORCES 
UPPER CASE. THIS 
IS DONE IF 
THE GENERALIZED 
ROUTINE IS 
BEING USED 
TO PREPARE 
CARD IMAGES FOR 
MAPPING. 



*.»»C3« 

LOAD A REG 

WITH THE ADDR 

OF THE EXIT 

COCING 

NDSCAN 



*»«D3««»«««*** 

PUT THE 

ADDRESS OF 

THE CHARACTER 

IN A WORK 

REGISTER 



CHANGE THE 

CHARACTER TO 

UPPER CASE 

•E2 



CALC ACCRESS 

CF NEXT 

CHARACTER 

IN WRKRG1 



• CALC REGAINING 

• BUFFER LENGTH 

• (POINT 2-1) 



• D4 
P0INT1 CONTAINS 
THE ADDRESS OF 
THE FIRST CHARACTER 
OF THE FIELD. 
P0INT2 CONTAINS 
REMAINING BUFFER 
LENGTH. 

POINTS CONTAINS 
LENGTH-1. 



• STCRE RESULTS • 
•CF CALCULATIONS* 

• IN LOC TCPAR1 » 

• FOR USE BY • 
•LATER SCANS«D4 • 



• ADJUST THE 

• PARAMETER 
•LENGTH COUNTER 

• TO LENGTH 

• MINUS CNE 



• HI 
ENTRY AT THIS POINT TO GET THE FIRST 
FIELD AFTER THE OPERATION CODE. 
LEADING BLANKS ARE SKIPPED. 
CURRENT POINTER INFORMATION 
IS IN LOCATION TMPAR1. AT 
LEAST ONE SCAN HAS BEEN MADE. 



• Jl 

ENTRY AT THIS POINT TO GET THE 
OPERATION CODE FIELD. POINTERS 
ARE INITIALIZED WITHIN THE 
CALLING SEQUENCE. LEADING 
BLANKS ARE SKIPPED. 

• Kl 

ENTRY AT THIS POINT TO GET 
FIELDS OTHER THAN THOSE 
SPECIFIED IN *H1 AND •JL. 
CURRENT POINTER INFORMATION 
IS IN LOCATION TMPAR1. AT 
LEAST ONE SCAN HAS BEEN MADE. 
BLANKS ARE NOT SKIPPED. 



H3 •. 

.» CHAR • 
EQUAL TO 
AN EQUAL 

. SIGN 



• ADD ONE TO • 

• THE PARAMETER • 
•LENGTH COUNTER,* 

• P0INT3 • 



»G4 

LOW EQUALS BLANK. 
EQUAL EQUALS COMMA. 
HIGH EQUALS EQUALS. 
THE CONDITION CODE 
IS TESTED BY THE 
CALLING ROUTINE 
TO ESTABLISH 
VALIDITY. 



«*«F5«**««««« 
ADD ONE TC 
THE OPERAND 
NUNBER KEPT 
IN LCCATICN 
OPNUMB 



» TST LAST CHAR 

* IN THE FIELD 

* FCR A CCNNA 
•(SET CONDITION 

* CCDE) «G4 



««*«H5*»«*«*«* 

EXIT TO ADCR 

IN LINK 

REGISTER 
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Chart AE. $$BATTNB - MSG Statement Processor 
Refer to Chart 03. 



»*A1»*»*»« 
$$BATTNB 



**»#A2**»*» 



*A3««»»» 
EXTINT 



•**«*B3**»******* 
« PUT THE BG * 

* STORAGE KEY, * 

* HEX «10« INTO * 
« A REGISTER * 



»#»»»»,«»***« 



ESTABLISH 

LINKAGE TO 

USER ROUTINE 



THE REGISTER P0INT4 
IS USED IN THE STEXCD 
SUBROUTINE. 



ESTABLISH » 

LINKAGE TO » 

USER ROUTINE * 



»*03»*«««*« 
•RESET ATTN * 

• PIB SW * 
AFTER TESTING 

* IT * 



«««A5*««*« 

CKF1F2 



*««««B5 •«»•««*«• 

* PUT THE Fl 

* STORAGE KEY, 
•HEX '30', INTC 

* A REGISTER 
« •(* 



••••C5*««««««* 

TEST THE MSG 

STATEMENT 

OPERAND IN 

THE BUFFER 



***E1****** 
CONTROL 
CHART AB 



NO .» ATTEN- « 
...*.TION REQUEST 
• . SW ON .* 



OPERANC 
EQUALS 



*»««*E5**««*«**«* 

• PUT THE F2 « 
» STORAGE KEY » 
•HEX ^0*, INTO • 

• A REGISTER • 

• «C4 « 



TMPAR1 
THIS LABEL IS NOT 
ASSEMBLED AT AN 
EXECUTABLE INSTRUCTION. 
HOWEVER, BEFORE SEG- 
MENTS OF $$BATTNA CODE 
ARE OVERLAID, IT CAN 
BE AODRESSEO TO RETURN 
CONTROL TO THE INI- 
TIALIZATION ROUTINES. 



••••G4* •**•*•• 
RET TO ADDR 
IN LINK REG 



••G5*««««« 

NVSERR 
CHART AC 
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Chart AF. $$BATTNB - Set Operator Communications and Exit Table Linkage 
Refer to Chart 03. 



••••Al********* 
• STEXCD * 



•**»*B1 ••***••••• 
» ACCESS THE * 

* PIB TABLE AT * 

* THE CORRECT ♦ 
•PROBLEM PROGRAM* 

* PIB » 



•••••Cl*« •••••••* 

* LOAD THE SAVE * 

* AREA ADDRESS * 
»OF THE CORRECT * 
•PROBLEM PROGRAM* 
•INTO A REGISTER* 



»*»»»D1***» »•**»• 
•DIVIDE THE PRO-* 
* GRAM KEY BY 2 * 
•AND ADD RESULT * 
*TO START OF OC * 
•EXIT TBL *D2* 



••*»E1********** 
PUT THE * 

• DOUBLEWORO * 
OPTION TABLE * 
ENTRY INTO A * 
PAIR OF REGS * 



*D2 
THE OC EXIT TABLE REFERRED 
TO IN THIS PHASE IS COM- 
MONLY CALLED THE OC OPTION 
TABLE. THE ADDRESS OF 
THIS TABLE IS 
FOUND IN_THE_COMMUNI CAT ION 

IGURES 



B3 *. 

.•C0MPLE-*. 
MENT OF 

USER ADDR 
. - FOUND . 

«. «F2 .* 

'•YES 



••••#C3*» ******* 

* LOAC I/O 

» BUFFER WITH 

* MESSAGE-PROC- 
•ESSING ROUTINE 

* ACTIVE, 1C50I 



•••*D3******** 

SET UP CCW 

COUNT FIELD 

WITH THE 

LENGTH OF 

THE MESSAGE 



*C4 
REGISTERS WILL BE RE- 
ORDERED FROM 9-8 TO 0-15. 



Fl 



USER *. 
.* ADDR *. YES 
.HAS POSITIVE .*.... 
*. SIGN .* 
*. *F2 .* 

*. .* X 

♦ NO ** 



***G1 ******** 

CLEAR THE 

I/O BUFFER 

FUR MESSAGE 

USE 



***»*H1********* 

* LOAD I/O 

* BUFFER WITH 

* MESSAGE FOR 

* NO ROUTINE 

* LINKAGE 1C40I 



*F2 
THE POSSIBLE VALUES ARE — 

1. POSITIVE ADDRESS 

(ROUTINE PRESENT, NOT ACTIVE) 

2. COMPLEMENT OF ADDRESS 
(ROUTINE PRESENT, AND ACTIVE) 

3. ZERO (ROUTINE NOT PRESENT) » 



SYSLOG 
EQUALS A 
. 1052 



SET UP 

SYSLOG 

CCB 



SETEXT X 

••«««B5****«*«**» 

• MOVE THE PSW » 
» FRO* THE * 
•PROBLEM PROGRAM* 

• SAVE AREA TO • 

• OC SAVE AREA • 



•••••C5********** 

• MOVE GENERAL • 
•REGISTER VALUES* 

• FRCM PROBLEM • 
•PROG SAVE AREA • 
•TO OC AREA *C4* 



««D5******* 

•PUT CC ACCR* 
IN PSW FLO • 
OF PROBLEM 
PROG SAVE * 

« AREA * 



•••••E5****«***« 
•PUT COMPLEMENT 
•OF OC RTN ACOR 
*IKTC CC OPTION 
« TABLE ENTRY 
« TO IND BUSY 



»*»*FA********* 

* RETURN TO 
» ADDRESS IN 

* LINK REGISTER 



•*»*G3****** 
EXCPRG 
CHART AC 



SET ATTENTION 

PIB ACTIVE 

X'83' 




RETURN TC 
ACDRESS IN 
LINK REG 



* SET UP THE 

* CCW COUNT 
•FIELD WITH THE 

* LENGTH OF THE 

* MESSAGE 
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Chart AG. $$BATTNC - CANCEL Statement Processor (Part 1 of 2) 
Refer to Chart 03. 



**«»A1********* 
* $$BATTNC * 



«A2»»**»«»«* 
CANCEL 



•*««A3«***« 
CNLRTN 



•A5«**««*««* 
CKBF12 « 



MPS 

*. .* 

♦ YES 



»B2 
USE STARTING 
ADDRESS OF PIB 
TABLE PLUS A 
DISPLACEMENT (KEY 
VALUE) TO POINT 
TO THE CORRECT 
PIB ENTRY. 



»C2 
A HEX 'SO' 
INDICATES THE 
AREA IS NOT ACTIVE, 

OR DETACHED. 



« CALC THE 
» ADDRESS OF 
»THE CORRECT PIB 
» TABLE ENTRY 

* «B2 



.♦ PIB * 

ENTRY 

DETACHED 

♦C2 



•***B A» ♦♦♦♦♦♦♦ 
* EXIT TO ADOR 
« IN LNK REG 



ANAERR 

♦ERRRTN 



SENO AREA 

NOT ACTIVE 

MSG 1I30D 



•*«****• 



FIRST 

OPERAND 
FOUND 



PUT KEY OF 

PROGRAM TO 

BE INITIATED 

INTO P0INT4 

*J2 



CANCEL 

ALREADY 

ISSUEO 



E3 *. 
.♦ LOC *. 

KEY EQUALS ». YES 


CNCLME 

* ZERO A REG 
♦TO PROVIDE ALL 
,...X^ INTERRUPTS 


»J3 .* 


♦ MASKED CONDI- 
TION ON SVC 22 



MOVE CANCEL 

COCE TO 

CORRECT PIB 

CANCEL CODE 

BYTE ^H3 



•*F4*»««**« 

SVC 22 

SEIZE THE 

SYSTEM 



PUT BG KEY, 
HEX'10' INTO 
REG P0INT4 



CNCLIN X 
»**»«G2^^ 
♦CNLRTN 




««*G3^ 
RET TO ADDR 
IN LINK REG 



SET CANCEL 

CODE FOR 

•PROGRAM- 

REQUEST- 

CANCEL' 



MOVE THE 

BG KEY TC 

REGISTER 

P0INT4 



OPERAND 

EQUALS 

•BG' 



MOVE THE 

F2 KEY TO 

REGISTER 

P0INT4 



OPERAND 

EQUALS 

•Fl« 



MOVE THE 

F2 KEY TC 

REGISTER, 

P0INT4 



OPERAND 

EQUALS 

•F2' 



♦H3 
THE CANCEL 
CODES ARE 
SET FOR OPERATOR 
INTERVENTION 
CANCEL. 



•*H4*^***** 

SVC 22 

RELEASE THE 

SYSTEM 



NVSERR 
CHART AC 



♦Kl 

THE KEY USED 

IS CALLED THE 

EXPLICIT KEY 

BG=HEX «10' 

F2=HEX '20' 

F1=HEX '30' 



♦J2 
THE KEY USED IS CALLED 
THE IMPLICIT KEY. ITS 
VALUE IS SET WHEN A 
START IS ISSUED. A ZERO 
VALUE MEANS 

1. BATCH-ONLY ENVIRONMENT, 
USE BG KEY AS KEY TO 
PROGRAM TO BE CANCELED. 

2. MPS ENVIRONMENT-NO 
START HAS BEEN ISSUED 
USE BG KEY AS KEY TO 
PROGRAM TO BE CANCELED. 



THE PROGRAM BEING 
INITIATED IS NOW 
BEING CANCELED. 



**»* J 4**«»* 

♦ SVC 11 

♦ RETURN 
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Chart AH. $$BATTNC - CANCEL Statement Processor (Part 2 of 2) 
Refer to Chart 03. 



ANY 
SUBTASKS 
.ATTACHED 



»#*«D2******* 
INITIALIZE 

SUBTASK 
COUNTER TO 



•** *E2********* 

GET PIB 

TABLE ADDRESS 

AND POINT TO 

FIRST SUBTASK 

PIB-16 



SUBLOOP 

**«**F2******** 

* ADD 16 TO 

* PIB ADDRESS 
» TO POINT TO 

* NEXT SUBTASK 

* *F3 



ON THE FIRST PASS 
THROUGH THIS ROUTINE, 
THIS IS THE FIRST 
SUBTASK PIB ENTRY. 



G2 «. 


»# 


***G3*«****** 




*SUBTASK». 




MOVE 




ID EQUAL ». YES 




SUBTASK 




MAIN TASK .* 


..X* 


CANCEL CODE 




ID .« 




TO PIB 


* 


















*NO 




• 




•X.. ......*.*• 




• 




X 








*H2 ********** 








SUBTRACT * 








ONE FROM * 








SUBTASK * 








COUNTER * 









END OF *. NO 
SUBTASK .*... 
PIBS .* 



X 
* 1 



EXIT TO 

ADDRESS IN 

LINK REG 
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Chart AJ. $$BATTNC - PAUSE, LOG, NOLOG, and IGNORE Statement Processors 
Refer to Chart 03. 



*A1***** 
PAUSE 



****A5 ********* 



CI *. 
.* LAST *. 

* CHARACTER * 
IS AN EQUAL 

* . SIGN . * 



****C 2 ********* 

* NVSERR * 

* CHART AC * 

* * 
*************** 



.* LAST *. YES 

.CHARACTER IS .* 

*. A BLANK .* 



NO .* LAST 
...*. CHARACTER 
*IS A BLANK. 



************* 



PAUSE2 

**F2**** 

*TURN ON 

*F0R PAUSE 

* JOB CONT 

* SWITCH 

* COMREG+ 



**** 

* * 

* 3 * 



*****£ 3** ******** 
*SAVE BACKGROUND* 

* COMM. REGION * 
*BASE REG, LOAD * 
*WITH PARTITION * 

* COMM. REGION * 
***************** 



**P3******* 

*TURN ON BIT* 

*F0R PAUSE IN * 

JOB CONTROL 

* SWITCH AT * 

* COMREG+56 * 



****G 3** ******** 

RESTORE * 

BACKGROUND * 

COMMUNICATION * 

REGION BASE * 

REGISTER * 

**************** 



**** 

* * 

* 1 * 

* * 
**** 



*****(= 4********** 
*SAVE BACKGROUND* 

* COMM. REGION * 
*BASE REG, LOAD * 
♦WITH PARTITION * 

* COMM. REGION * 
***************** 



**P4******* 

*TURN ON BIT* 

*FOR PAUSE-AT-* 

* EOJ IN JOB * 

CONTROL SWITCH* 

* COMREG+59 * 

*********** 



*****G4** ******* 

* RESTORE 

* BACKGROUND 

* COMMUNICATION 

* REGION BASE 

* REGISTER 
**************** 



**B5******* 
♦TURN ON BIT* 

* FOR LOG IN * 
JOB CONTROL 

* SWITCH AT * 
* COMREG+56 * 

*********** 



****C 5 ********* 

* CONTROL * 

* CHART AB * 

* * 
*************** 



* NO LOG * 

* * 
*************** 



**E5******* 
TURN OFF BIT* 

* FOR LOG IN * 
JOB CONTROL 

* SWITCH AT * 
* COMREG+56 * 

*********** 



****F5********* 

* CONTROL * 

* CHART AB * 

* * 
*************** 



****G 5** ******* 

* * 

* IGNORE * 

* * 
*************** 



*****H1 ********** 

* USE KEY TO * 

* GET ADDRESS * 

* OF COMM. * 
♦REGION FOR THIS* 

* PARTITION * 
************\***** 



****H3****** 

* CONTROL 

* CHART AB 
* 

******** 



.* WAS A 
REAP 
*. ISSUED 



**j5******* 

* SET INPUT 

SWITCH 

'FLGBYO' 

TO SYSRDR 

* 

*********** 



PAUSE1 

****** 1 ********** 
*SCANR3 AD* 



*************** 



****«5** ******* 

* CONTROL * 

* CHART AB * 

* * 
*************** 
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Chart AK. $$BATTND - MAP Statement Processor 
Refer to Chart 03. 



*»»>A2 ********* 



•«««B1 ********* 
CLEAR THE I/O 

BUFFER AND 

MOVE THE MAP 

HEADER INTO 

THE BUFFER 



OUTPUT 

BG, SET UP 

F2 LINE 



*»*«C3****»*** 

PUT END OF 

MAIN STORAGE 

ADDRESS INTO 

A WORK 

REGISTER 



•«**D1********* 

CLEAR THE I/O 

BUFFER AND 

SET OUTPUT 

LENGTH TO 1 



SET UP 

END OF MAIN 
STORAGE 



OUTPUT Fl 



**»#*E1»«»»***»*# 
* CALC THE PIB * 
•ADDRESS OF THE » 
•PROBLEM PROGRAM* 
•SUPPORTING THE * 
•INTERVAL TIMER * 



#»»**G1»»»»*»*»*» 




♦STUSPC AL* 








•CALC SUPERVISOR* 
• UPPER LIMIT * 




X 
••**«H1** ******** 

* CALC THE * 

♦ NUMBER OF * 

♦ BG IK * 

• BLOCKS * 

• *H2 * 


• H2 
NUMBER OF IK 
BG BLOCKS EQUALS 
F2 STARTING 
ADDRESS PLUS 1 
MINUS STARTING 
ADDRESS OF BG 
AREA DIVIDED 
BY 102^. 



• OUTPUT * 
•SUPERVISOR LINE* 
•SET UP BG LIME • 



»**K ].**•*»*** 

PUT PROGRAM 

NAME INTO 

LOCATION 

NAMFLD 
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Chart AL. $$BATTND - Output MAP Subroutines (Part 1 of 2) 
Refer to Chart 03, 



•***A1 ********* 
* STUCRL * 



••A3***** 
STUSPC 



STUCRL X 

* CALCULATE * 

* THE NUMBER * 

* OF IK BLOCKS * 

* «C2 * 

* • 


•***B2 ********* 
* STUBGL * 


STUSPC X 

»»#*»B3********** 

* PUT THE « 
•PROGRAM PREFIX • 

* INTO THE I/O * 

* BUFFER * 




.X 

STUBGL X 

»»»»»C1«***»»***« 
•CNV8CD AM* 

•CONVERT NUMBER * 

* OF IK BLOCKS * 

* TO EBCDIC * 


"*Vz ■*" 

DOUBLE THE NUMBER 
OF 2K BLOCKS FOUND 
IN THE PIB ENTRY. 


X 
*»***C3********** 

* CALCULATE « 

* UPPER LIMIT • 

* INFORMATION • 

* *D2 * 

* • 


**»»C4**** 
* STUFIU 




♦ D2 
THE SUPERVISOR AND 
BG PROGRAM UPPER 
LIMITS ARE CALCULATED 
BY GETTING THE BG AND 
F2 ORIGIN ADDRESSES 
RESPECTIVELY AND 
DECREASING THEIR VALUE 
BY ONE. 






'. 


X 

*#»**D1********** 
•OUTPUT AM* 

* TYPE BUFFER * 

* CONTENTS ON * 

* SYSLOG ♦ 


STUFIU X 

»»*»#D3««******** 
•CNVBCD AM» 

• CONVERT UPPER * 

• LIMIT TO * 

• EBCOIC « 





•****E1********** 

* CLEAR I/O * 
♦BUFFER AND LOAD* 
*IT WITH NUMBER • 

• OF IK BLOCKS • 



»****E3********* 

* MOVE THE 
•UPPER LIMIT TO 

• THE CORRECT 

* FIELD OF THE 

• I/O BUFFER 



****G1****** 

MOVE THE 

CHARACTER • 

INTO THE 

BUFFER 



POINT TO THE 

NEXT PIB 

ENTRY 



•••*G3 ******** 

• RET TO ADDR 

• IN LNK REG 



.* PIB *. YES 

•INDICATES TASK.*... 
♦.DETACHED .* 



* GET PROGRAM ♦ 
♦NAME FROM SAVE ♦ 
♦AREA AND PUT IT* 

* INTO THE I/O * 

* BUFFER ♦ 
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Chart AM. $$BATTND - Output MAP Subroutines (Part 2 of 2) 
Refer to Chart 03. 



»A1**«** 
CNVBCD 



»»**»B1********* 
» CONVERT LIMIT 
•INFORMATION TO 

* UNPACKED 

* EBCDIC 



»##»C1********* 

PUT ADDRESS 

OF FIELD INTO 

A WORK 

REGISTER 



•••*A3********* 
« OUTPUT » 



*»*«*B3**** ****** 
•PUT THE ADDRESS* 

* OF THE LAST * 

* BYTE OF THE * 

* I/O BUFFER * 

* INTO A REG * 



CHARACTER *. 
EQUALS 
. BLANK .» 



•»*C4******** 

DECREASE 

REG BY ONE. 

POINT AT 

PRECEDING 

CHAR 



.* CHARACTER ». NO 
*. EQUALS .*... 

*. ZERO .» 



CALCULATE 
LENGTH FOR 
I/O OPERATION 



SKPLIN 



SKPLIN 

»*»»*E3******** 

* STORE LENGTH 

* IN SYSLOG 

* OUTPUT CCW, 
» SET UP CCB 



REPLACE ZERO 
WITH A BLANK 

POINT 
TO NEXT CHAR 



»*»*F2«******« 

RET TO ADDR 
IN LNK REG 



*«*G3******** 
RET TO AOOR 
IN LNK REG 
VIA EXCPRG 
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Chart BA. $$BATTNE - ALLOC Statement Processor (Part 1 of 
Refer to Chart 04. 



4) 



»»A1****** 

$$BATTNE 

♦C2 



#»»**B1********»* 
♦RESET DUPLICATE* 
» 0PERAN0 AND * 
♦SECOND OPERAND * 

♦ SWITCHES * 

♦ *B2 ♦ 



CRTBLD 

♦ SET UP WRKRG1 * 

♦ WITH THE END * 

♦ OF STORAGE ADDR^ 
♦POINT I WITH Fl* 

♦ TBL ADDRESS * 



•••*D1»******** 
SET UP POINT2 
WITH THE PIB 
TABLE ADDRESS 
AND ZERO THE 
BYTE CNT REG 



INNXEN 

»**#»£!♦♦♦♦♦♦♦♦♦♦ 

♦ STORE THE ♦ 

♦ CONTENTS OF * 

♦ WRKRG1 IN THE * 
♦TABLE AS UPPER ♦ 
♦LIMIT VALUE *EZ* 



EXIT ON THE NO LEG THE 
FIRST TIME THROUGH THIS 
ROUTINE. 



ALLCC 
♦ C2 



♦ B2 
AT 'CHKPRN' 
AND 'CKSCST' 



B3 ♦ . 
.♦ PIB ♦. 

YES .* INDICATES ♦. 
...♦.TASK CETACHED. 



•****C 3* ♦*♦*♦♦♦♦ 

♦ USE ADDRESS 

♦ OF SAVE AREA 
♦AS LOWER LIMIT 

♦ ANC PUT INTO 

♦ TABLE 



♦ ♦♦••^'^♦♦♦♦♦♦♦♦^ 

♦ MOVE THE 

♦ OPERAND FOUND 

♦ BY SCANR2 

♦ INTO THE 
♦PRECEDING TEST 



♦E2 
THIS VALUE IS ALSO STORED 
IN THE ACTIVE LOWER LIMIT 
FIELD INDICATING THIS 
FIELD IS INACTIVE. IT 
CCNTAINS A HEX FF IN THE 
LAST BYTE. 



♦DECREASE POINT1* 

♦ AND POINT2 BY ♦ 

♦ 16 POINT TO ♦ 

♦ NEXT TBL AND ♦ 
♦PIB RESPECTIVELY 



ALLOCATION 

♦. TABLE . 

♦. ^F2 .♦ 



GET NUMERIC 

ALLOCATION 

VALUE 



.♦ DELIMITER ♦ 
♦. IS AN EQUAL 
♦. SIGN .♦ 



♦GET ORIGIN FROM^ 

♦ CURRENT PIB ♦ 
♦AND MOVE IT TO ♦ 

♦ THE TABLE AS * 

♦ LOWER LIMIT ♦ 



♦ CALC UPPER 
♦LIMIT FOR NEXT 

♦ TABLE ENTRY 
♦-CURRENT LOWER 
♦LIMIT MINUS 1- 



****H1*»****** 

CALC NUMBER 

OF 2K BLOCKS 

AND STORE 

IN TABLE 

♦ J2 



♦ F2 
THIS LOO 
UNTIL 3 
EACH TYP 
PROGRAM 
TABLES i. 
SEQUENCE 
BG. THE 
REVERSAL 
ORDER. 
FOR ATAB 
F1TBEN E 



P IS EXECUTED 

TABLES, ONE FOR 

_ OF PROBLEM 
ARE BUILT. THE 

RE BUILT IN THE 
Fl, F2, AND 
SEQUENCE IS A 
OF THE PHYSICAL 

SEE LABEL LIST 

LE, F2TBEN AND 

XPANSIONS. 



♦ F3^ 
GTNXOP 



GET FIRST 

OPERAND 

♦ J5 



LOAD THE 

ADDRESS OF 

THE Fl TABLE 

INTO P0INT4 



••G4*»***«* 

♦MODIFY TEST 

♦AFTER RETURN 

FROM SUB- 
ROUTINE 



F5* 



♦ F5 
THE INSTRUCTION AT LOCA- 
TION CKSCST IS MODIFIED 
TO BRANCH TO THE ERROR 
HANDLING ROUTINE IF THE 
SECOND OPERAND IS 
DELIMITED BY AN EQUAL 
SIGN OR A COMMA. THE 
COMMA IS ALLOWED TC 
DELIMIT THE FIRST 
OPERAND. 



•***J1**»**»»* 

ADD NUMBER 

OF 2K BLOCKS 

TO THE BYTE 

COUNT REG, 

WRKRG4 



#**♦*!< !***♦♦♦♦♦♦♦ 
♦MOVE THE UPPER ♦ 
♦ LIMIT FOR THE ♦ 
♦NEXT AREA INTO * 
♦WRKRG1 ^K2^ 



CURRENT UPPER LIMIT MINUS 
NEXT UPPER LIMIT DIVIDED 
BY 2048. 



WRKRG1 CONTAINS CHANGING 
(DYNAMIC) UPPER LIMIT 
INFORMATION. 



LOAD THE 

ADDRESS OF 

THE F2 TABLE 

INTO P0INT4 



»««♦♦♦♦♦♦♦♦ 



♦ J5 
THE ALLOC STATEMENT 
FORMAT 

ALLOC F1=2K, F2=2K 
Fl= OR F2= IS CONSIDERED 
THE FIRST OPERANC. IF 
BOTH Fl AND F2 ARE 
SPECIFIED SCANR2 IS 
USED TWICE. 
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Chart BB. $$BATTNE - ALLOC Statement Processor (Part 2 of 4) 
Refer to Chart 04. 



» PUT AODRESS 
•OF THE OPERAND 
* INTO WRKRG3 



OPERAND ». NO 
CHARACTER • •..X 
. NUMERIC .* 



•TEST CHARACTER • 

• TO DETERMINE ♦ 
•IF IT IS AN ODD« 

♦ NUMBER »J3 • 



POINT WRKRG3 
TO THE NEXT 

CHARACTER OF 
THE OPERAND 



.•END OF • 
» NUMERIC 
CHAR IN 
». OPERAND 



NUMBER 
ODD 
»J3 



B3 •. 
.• LAST •. 

* CHARACTER 
OF OPERAND 



»*»»C3»««»*«*«* 

CONVERT 

NUMERIC VALUE 

TO PACKED 

BINARY AND 

DIVIDE BY 2 



YES .• NUMBER • 
......OF 2K BLOCKS 

•. GT 255 .* 



••♦•E3« 

SAVE THE 

NUMBER OF 

2K BLOCKS IN 

THE CORRECT 

TABLE ENTRY 



• D5 
A BLANK DELIMITER INDICATES NO PCRE OPERANDS 
FOLLOW. HOWEVER, AN ALLOC STATEMENT CAN 
CONTAIN TWO OPERAND FIELDS (Fl AND F2) 
SEPARATED BY A COMMA. A CCMMA DELIMITER 
REQUIRES ANOTHER PASS THROUGH THIS RCUTINE 
STARTING AT GTNXCP TO PROCESS THE SECOND 
OPERAND. 



F3 ». 

• SCAN *. 

STOPPED 
N A BLANK 



SET UP TO 

LOAC AND 

EXECUTE 

$$BATTNF 

• G5 



SVC 4 LOAD 
$$BATTNF 
CHART BC 



• G5 
THE LOAD INSTRUCTION IS PHYSICALLY THE FIRST 
INSTRUCTION FOUND IN THE LISTING OF THIS 
TRANSIENT. THE BRANCH VECTOR TABLE FCUND IN 
THE ROOT PHASE, $$BATTNA, CAUSES PROCESSING 
TO BEGIN WITH THE SECOND EXECUTABLE 
INSTRUCTION. WHEN THIS TRANSIENT IS 
FINISHED PROCESSING, THE LOAD IS EXECUTED BY 
BRANCHING TO THE AODRESS IN THE EASE REGISTER. 
THIS IS THE ADDRESS OF THE SVC 4 INSTRUCTICN. 
$$BATTNF IS LOADED SO THAT IT OVERLAYS THE 
FIRST PART OF $$BATTNE. $$BATTNF ALSC HAS A 
SVC 4 AS ITS FIRST INSTRUCTICN, BUT 
SUPERVISOR GIVES CONTROL TO $$BATTNF AT THE 
NEXT INSTRUCTION FOLLOWING A SVC 4. 



*J3 
EACH CHARACTER IS TESTED TO 
DETERMINE IF IT IS ODD. THE 
TEST TO DETERMINE IF THE 
ALLOCATION IS IN MULTIPLES 
OF 2K IS MADE ON THE LAST 
NUMERIC CHARACTER ONLY. 
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Chart BC. $$BATTNF - ALLOC Statement Processor (Part 3 of 4) 
Refer to Chart 04. 



*»A1«***»» 
$$BATTNF 



»*A2**«**» 
STARTF+2 



»****B1*»**»»**« 
•LOAD ADDRESSES 
•OF END OF MAIN 
• STORAGE AND 
« OF Fl TABLE 



»»*B4**«*»»»» 

STORE NEW 

LIMITS IN 

THE CORRECT 

TABLE ENTRY 



CMNWLM X 

*****C1******** 

* SAVE TOTAL 
» NUMBER OF 2K 
» BLOCKS IN 

• 'BGN02K' 



NEW UPPER LIMIT EQUALS 
UPPER LIMIT OF LAST AREA 
PLUS NUMBER OF BYTES 
IN LAST AREA. 



*««*C4*»«»»»»» 

CALC NEW 

UPPER LIMIT 

FOR THE NEXT 

TABLE ENTRY 

»C3 



»#*»D1*»****** 

CALCULATE 

TOTAL BLOCKS 

MINUS 

ALLOCATED 

BLOCKS 



.» IS 

. ALLOCATEO 
*.GT TOTAL . 



CALCULATE 

LOWER LIMIT 

»F2 



.* IS * 
• . AREA ACTIVE 
*. *H2 .* 



HI *. 
.* NEW *. 

.•UPPER LIMIT* 
. LESS THAN 
*. OLD .* 
• . LIMIT. » 



**#*D A* •»**#»* 

SET REGISTER 

POINTER, 

P0INT1 TO 

NEXT TABLE 

ENTRY 



* END OF 

ALLOCATION 
*. TABLE . 



*F2 
THE LOWER LIMIT IS CALCULATED 
BY GETTING THE NUMBER OF 2K 8LOCKS 
FROM THE CORRECT TABLE ENTRY, 
CONVERTING THIS VALUE OF BYTES 
(2K BLOCKS TIMES 2048), 
SUBTRACTING THE BYTE COUNT FROM 
THE UPPER LIMIT AND ADDING ONE. 



ENTER 
SUPERVISOR 
STATE »F5 



•NO 



Jl •. 
.• NEW «. 

••LOWER LIMIT* 
•.GREATER THAN 
♦. OLD .* 
••LIMIT.* 



****GA******** 

INITIALIZE 

FOR LOW TO 

HIGH SCAN OF 

ALLOCATION 

TABLE »G5 



*F5 
NECESSARY TC 
ISSUE PRIVILEGEC 
INSTRUCTION SSK 
IN SUBSEQUENT 
PROCESSING. 



«G5 
BY USING A FCRWARD SCAN 
CF THE ALLCCATICN TABLE, 
CONTINUITY IS ENSURED. 
INITIALLY 

P0INT1 EQ ATABLE-16 
P0INT2 EQ PIETBL ACDRESS 
WRKRG2 EG STORAGE KEY 
WRKRG1 EQ BG LOWER LIMIT 



► H2 

A HEX FF IS FOUND IN THE LAST BYTE 
OF THE POINTER SAVE AREA FIELD OF AN 
INACTIVE ENTRY. THIS IS THE LAST 
BYTE OF AN UPPER LIMIT ADDRESS 
(ALWAYS FF). 



•YES 



NVAERR 




X 


•K2 


****K 1********* 


•1P00D 


* ERRRTN • 


INVALID 


» CHART AC • 


ALLOCATION 
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Chart BD. $$BATTNF - ALLOC Statement Processor (Part 4 of 4) 
Refer to Chart 04. 



♦ A5 
USED TC ENTER AND EXIT THE 
SUPVERSIOR STATE. WHEN 
USED AS AN EXIT, CERTAIN 
BIT SWITCHES IN THE SVC 
NEW PSW ARE RESET TC THEIR 
ORIGINAL VALUES. 



**#*.B1********* 

* ADD 16 TO 

* THE TABLE 

* POINTER SO 
*THAT IT POINTS 
» TO NEXT ENTRY 



CI ». 

.• END *. 

* OF 

ALLOCATION 
*. TABLE . 



•*»**01********** 

* POINT TO NEXT * 

* PIB WITH POINT2* 

* AND ADD 16 TO * 

* STORAGE KEY * 

* IN WRKRG2 * 



*«**#£ 1** ******** 
•SET PIB VALUES * 
•FOR LOWER LIMIT* 
•AND BLOCK COUNT* 
•FROM ALLOCATION* 
• TABLE * 



*D3 .* 

'•YES 



«#»D2******* 

INITIALIZE 

WRKRG4 TO 

START LOOP 

WITH Fl 

*E3 




*»**B4********** 

SAVE THE * 

ADDRESS OF * 

THE PC RTN » 

FOUND IN THE • 

NEW PC PSW • 



•****C4********** 
•PUT INSTR ADDR » 

• OF INSTR FOL- ♦ 

• LOWING BAL IN • 
♦THE ADDR FLD OF* 

• NEW PC PSW * 



END 

OF AREA 

*J1 



RSPPAE1 

*****E2«*»****»* 

• SET ADDRESS 

• OF COMREG 

• FOR THIS 
•PARTITION FRON 
•2ND PART OF PIB 



*«**#F2********* 

* PUT UPPER 

* ADDRESS OF 
*THIS PARTITION 

* INTO HEX BYTE 

* 20 OF COMREG 



CHECK SYSTEM CONFIG BYTE 
IN COMREG BIT 5. IF ON, 
THERE ARE THREE COMREGS. 



*E3 
WRKRG4 IS INITIALIZED TO 
X'20« FOR Fl. IF NO 
BATCH IN FOREGROUND 
WRKRG4 IS SET 
TO FOR BG ONLY. 



FORCE A 

PROGRAM 

CHECK 



*NSI FOLLOWS BAL* 
* INSTRUCTION * 



* SET STORAGE * 
•PROTECTION KEY 

• IN THIS 2K » 
* BLOCK * 



DECREMENT 

WRKRG4 TO 

POINT TO NEXT 

PARTITION 



***H1******* 

ADD 2048 

TO W0RKG1, 

INITIALLY 

LOWER 

LIMIT 



*J1 •*** 

DETERMINED BY REPETITIVE 
ADDITIONS OF 2048 TO 
THE LOWER LIMIT UNTIL 
IT IS GREATER THAN THE 
UPPER LIMIT OF AN AREA. 



RETURN IS MADE BY LOADING 
THE OLD PC PSW IN WHICH 
THE ADDRESS OF 'CONTROL' 
HAS BEEN STORED. 



* RETURN TO « 
♦PROBLEM PROGRAM* 

* STATE *K1 * 



##K3******** 
CONTROL 
CHART AB 
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Chart BE. $$BATTNG - START and BATCH Statement Processors 
Refer to Chart 04. 



•*A1********* 
$$BAJTNG 



• A2 
THIS DECISION IS SHOWN 
HERE FOR LOGIC 
DESCRIPTION ONLY. ENTRY 
POINT IS DETERMINED BY 
BRANCH VECTOR TABLE IN 
$$BATTNA. 



• A3 
TITLE ALLOWS IDENTIFICATION 
OF ATTENTION ROUTINE AS AN 
INITIATOR EVEN THOUGH IT IS 
EXECUTED FROM FOREGROUND 
PROGRAM AREA. 



INSERT 
'NO NANE' IN 
THE PROGRAM 
NAME FIELC 



IN 



START 

•»C1»»»***» 

INSERT X'4G'* 

IN INSTRUCTION* 

* AT F2CALC1 

* TO TEST * 

» FOR MPS * 



»*C2««*»»«* 

•DETACH THE 

ATTENTION 

TASK. PIB 

FLAG EQ 



**«»*02********« 

• MOVE ADDR OF 
•ATTENTION SAVE 

• AREA TO THE 
•FOREGROUND PIB 



FROM THIS POINT THE 
INITIATOR USES THE FG 
PIB IN TASK SELECTION. 
CAUTION 



THE INITIATOR CONTINUES 
TO RUN AS AN ATTENTION 
TASK. THE TRANSIENT 
AREA IS OCCUPIED BY THE 
ROOT PHASE ANC THE 
LOGICAL TRANSIENT KEY 
INCICATES THE TRANSIENT 
AREA IS IN USE. A SVC 
11 IS THE ONLY WAY TO 
RELEASE THE AREA. 



El ». 




*»»»«E2»*« »»»♦»*« 


* CORE ». 




• MOVE CONTENTS • 


ALLOCATED •. 


NO 


•OF LOGICAL TRAN* 


FOR THIS 




» -SIENT BUCKET * 


TASK .» 




•TO OLD ATTENTN • 


* . .» 




• SAVE AREA • 




X 





SECOND PART OF PIB TABLE 
PLUS DISPLACEMENT 
CALCULATED IN POINT A BY 
INITOPR SUBROUTINE. 



• LOAD THE BASE 

• REGISTER FOR 
•THE FG PROGRAM 

• FRUM THE ORG 
•FLD OF ITS PIB 



»»»#F2* e **»»»* 
MOVE AODR OF 

FG ORIGIN 

INTO LOGICAL 

TRANSIENT 

BUCKET 



INSERT X'44'« 

N INSTRUCTION* 

AT F2CALC1 TO 

TEST FOR • 

MPS AND BJF» 



.» CORE *. 

AVAILABLE 

AT LEAST 

ICK 



ASSIGN SYSLOG 

TO FOREGROUND 

PARTITION 



ASSIGN SYSLOG 

TO FOREGROUND 

PARTITION 



CALCULATE 
ADDRESS OF 

COMMUNICATION 
REGION FOR 

PARTITION »E3 



SET UP TC 

DISABLE 
INTERRUPTS 
ON SVC 22 



CLEAR LABEL 

LENGTH FRCM 

PARTITION 

SAVE AREA 



SVC 22 

SEIZE THE 

SYSTEM 



• TURN CN 

• BIT IN 
LAST BYTE CF 

• PIE FCR 
••BJF IN FG" 



•«F5**««««* 
« SET PIE • 

• FLAG TO X' 81' • 
•AND SET CANCEL 

• CODE IN PIB • 
• FCR EOJ • 



♦*#»*G1**««»*»«» 

• PUT INITIATOR 
•TITLE AND 'SVC 
•LOAD' INSTRUCT 

• INTO PROGRAM 
♦NAME FIELD *A3 



»«»G3***«*«* 

SET UP TO 

ENABLE 

INTERRUPTS 

ON SVC 22 



»#G4*****«« 

•TURN ON BIT« 

♦ FOR 'BATCH • 

» COMMAND JUST 

ISSUED', BIT 7* 

IN COMREG+59* 



SVC 22 

RELEASE 

THE SYSTEM 



SET UP TO 

DISABLE 

INTERRUPTS ON 

SVC 22 



•MODIFY PIK t * 
•LTK, AND KEY 
TO EQUAL FG 
• KEY 



SVC 22 

RELEASE THE 

SYSTEM 



* INSERT 'NO * 
•NAME' IN COMM. ♦ 
•REGION JOB NAME* 



SVC 22 

SEIZE THE 

SYSTEM 



J2 *. 

.*"* AP 

*. SUPERVISOR 

**YES 



»*»«#K2***«***»* 
♦POINT REG 1 TO 
•COMREG XTNSION 
* AND STORE KEY 
•AT LID AND PIK, 
•BYTES 16 AND 18 



SET UP TO 

LOAD 

$$BATTNH 

*J5 



***K3******* 

SVC 4 LOAD 

$$BATTNH 

•J 5 



MOVE ADDRESS 

OF PARTITION 

ORIGIN INTO 

THE PIB 



*J5 
A SIMILAR TECHIWCUE TC 
THAT USED IN $$BATTNE 
(CHART BB, NOTE G5 J IS 
USED HERE TC GET THE 
NEXT PHASE. A SVC 4 
INSTRUCTION FOLLOWS THE 
EIGHT-CHARACTER NAME 
AND A BRANCH IS NACE 
TO THAT SVC 4 
INSTRUCTION (BASE 
REGISTER +8). 
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Chart BF. $$BATTNG - START and BATCH Subroutines 
Refer to Chart 04. 



INITOPR 



ASSGNLCG 



• LCAD ADDRESSES 

• OF LUB TABLE 

• AND CF SECCND 

• PART CF PIB 
« TABLE 



• • BLANK 
.X«. OPERAND 
». »C3 



OPERAND 

LENGTH IS 

2 



F1CALC X 

»»**#H2*«****»* 
» ADD 16 TO 
* PIB TABLE 
» DISPLACEMENT 
» IN POINT* 



F2CALC X 

•♦»«»J2**»«**«* 
» ADD 16 TO 

* PIB TABLE 
» DISPLACEMENT 

* IN P0INT4 



BGCALC 

•»««*E3«««*<**« 

* ADD 16 TO 
» PIB TABLE 

* DISPLACEMENT 

* IN P0INT4 



•»«*«F3 ••••**•••• 

• USE THE • 

• DISPLACEMENT * 
« IN POINT* TO * 

• POINT TO » 
•CORRECT PIB *F4* 



• F4 
TOTAL DISPLACEMENT 
IN POINTA IS— 
BG=16 
F2 = 32 
Fl = 48 



.». 


CKPIBFLG -•• 


G3 ». 


GA ». 






IS •. YES 


.* AREA 


AREA ...... 


....X». WAITING 


ACTIVE .♦ 





MPS 

OR BJF 

• K3 



.* MAIN «. 
• TASK 
CANCELLING 



»*«J3«»«***«*« 
EXIT TO 
ADDRESS IN 
LINK REG 



*K3 
TEST FOR MPS 
OR BJF IS PRESET 
AT 'START' OR 
•BATCH', CHART BE. 



« GET SYSTEM 

• CLASS INDEX 

• (FICL) FRCM 
•SECCND PART CF 

• PIB TABLE 



CALCULATE 

SYSTEM CLASS 

LUB TABLE 

ADDRESSES 



•••••E5*«**««««« 

• MCVE SYSLCG 
•AND SYSRES LUB 

• ASSIGNMENTS 

• TC DESIGNATED 

• PART OF TABLE 



RETURN TO 

ACCRESS IN 

LINK REGISTER 



»»K4***«««» 

• TURN ON * 
•BIT 7 IN PIB • 

FLAG BYTE TO 
• RELEASE THE • 

• PARTITION • 



X« SEND MESSAGE 
• '1P10D AREA 
•NCT AVAILABLE' 



•«K5««*««« 

CONTROL 

CHART AB 
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Chart BG. $$BATTNH - START Statement Processor Channel Program 
Refer to Chart 04. 



»*A2****** 
$$BATTNH 



ATTNH 

*****B2********** 

* ADD BRANCH * 

* VECTOR TABLE * 

* ENTRIES TG * 
♦ROOT TO SUPPORT* 

* INITIATORS * 



•***#C2 ********* 
♦PUT SYSRDR CCW 

* ADDRESS IN 
•INPUT CCB. PUT 
•BUFFER ADDRESS 

* IN INPUT CCW 



.X. 



ADDRLP X 

•****B4******** 

* RELOCATE THE 

* CCh STRING 

* IN THE ROOT 

* PHASE 

* *B5 
*************** 



*B5 
ACD ROOT PHASE 
BASE REGISTER 
VALUE TC CCW 
ADDRESS. RELOCATE 
9 CCW«S (RESCCW, 
RESCCW1-RESCCW8). 



*D3 
TO ALLOW 
SYSRES I/O. 



**D2******* 

* TURN ON * 

* BIT IN * 
•ASSIGN FLAG OF 

* CORRECT PIB * 

* *D3 * 



*****D4******** 

* INITIALIZE 

* RESCCW4 AND 

* RESCCW8 WITH 

* LABEL AREA 

* ADDRESS 



*«**E2******** 

SAVE ADDRESS 

OF LABEL 

I NFORMATION 

TABLE 



•****F2 ******** 

* CALCULATE 

* SYSRES PUB 

* TABLE ENTRY 



•****£4**** ****** 

* CALCULATE * 

* START AND END * 
•TRACK FOR USER * 
♦LABELS FOR THIS* 

* PARTITION 



••**»*•*• 



■** 



»****H2********* 

* CHANGE TRACK 

* CAPACITY 

* CONSTANTS 

* FROM 2311 
•VALUES TO 2314 



****J2****»**** 

GET ADDRESS 

OF LABEL 

CYLINDER FROM 

COMMUNICATION 

REGION 



.* ALL *. 

* TRACKS * 
INITIALIZED 



****»H 4* ******** 

* RESET WRITE 

* RECORD NUMBER 

* TO AND SET 

* KEY LENGTH 

* TO 8 
**************** 



****J4»* ******* 
CONTROL * 
CHART AB * 
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Chart BH. $$BATTNH - Subroutines 
Refer to Chart 04. 



*»«*A1****« 
WFMRES 



»##B ].****»»*• 

SET HEAD 

VALUE IN 

WRITE AND 

SEEK/SEARCH 

CCW'S 



»A2*«*»» 
LOGGER 



* ERRRTN1 



**«B4«»»*«»*» 

GET OPERAND 

NUMBER FROM 

LOCATION 

•OPNUMB* 



UNCLOG 

»»«»»C2»**»«»«« 
» LOAD ADDRESS 

* OF END OF 

* BUFFER FOR 
» REVERSE SCAN 



WRITE 

FILE MARK 

*F1 



«#»»E1**»*»*«*» 

RETURN TO 

ADDRESS IN 

LINK REGISTER 



«F1 
THIS IS A BRANCH 
IN THE PROGRAM, 
BUT IS SHOWN HERE 
AS A BAL TO 
BETTER DESCRIBE 
THE LOGIC FLOW. 



#»F2»*«*»«« 

CALCULATE 

LENGTH OF 

BUFFER 

CONTENT 



ANY » 
OUTPUT 

**«NO 


. YES 


X 

»»E3»*«»*»*» 

SET LENGTH 
FOR ZERO 
OUTPUT 


*: : 


*X 1 



#«*«F3»»»*«»**# 

ADD 1 TO 

LENGTH AND 

STORE IN 

SYSLOG OUTPUT 

CCW 



ADJUST NUMBER 

TO PRINTABLE 

HEXADECIMAL 

CHARACTER 



SET INPUT 
SWITCH 
TO FG1 



* LOG I/O 


***•••*••«•••**** 


* 2 ».. 

LOGEXT > 
.#«**H3*< 

•SET ^ 

« cot 


EDITION 



*»»#EA*»**»*» 

RESTORE 

NUMBER TO 

LOCATION 

•OPNUMB- 



YES .* STATEMENT 

...». WAS OUTPUT 

».0N SYSLOG. 



* IS 
INPUT 
DEVICE 
SYSLOG 



RETURN TO 

ADDRESS IN 

LINK REGISTER 



RETURN TO 

ADDRESS IN 

LINK REGISTER 



•1C20D READ 
COMMAND NOT 
GIVEN'. 
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Chart CA. $$BATTNI - ASSGN Statement Processor (Part 1 of 2) 
Refer to Chart 05. 



$$BATTNI 



•♦«*A2****» 
* ASSGN 



*A4 
MOOIFY INSTRUCTION 
•NWPBPT', CHART CB. 
ITS INITIAL CONDITION 
IS ALSO MODIFIED BY 
THE TXCUU SUBROUTINE 
(CHART CD). 



• INITIALIZE * 

TO SET NEW 

PUB POINTER 

TO IGN 

» *A4 * 



GET SECOND 
OPERAND 
(SYSXXX) 



SCAN *. 

STOP 

A BLANK 



•VALIDITY CHECK 

• AND CONVERT 

• SYSXXX 



VALIDTY CHECK 

AND CONVERT 
CHANNEL/UNIT 



• DEVICE 

IS PRINTER 
*. OR CARD . 



IS IT 
A SYSTEM 
. UNIT 



.• DEVICE •. YES 
•.SPECIFIEO IS .*.... 
». CASC .• 



C3 «. 

.•ALREADY*. 
• ASSIGNED 

TO ANOTHER 
». AREA 



ERRRTN 
CHART AC 






* MOOIFY • 
'OWNRSH' TO 

SHOW THAT 
OWNERSHIP 

* IS SET * 



D4 ♦. 
• SCAN *. 

STOP 

S A BLANK 

•Jl 



.* DEVICE • 
•SPECIFIED IS 
*. A TAPE .» 



• D2» 
NDTERR 



F3 «. 

• SCAN ». 

STOP 
S A BLANK 



Gl ». 
.• SCAN ». 
.* STOP IS *. NO 
.AN EQUAL SIGN.*... 



**»H1****** 
NVSERR 
CHART AC 



OPERAND *. NO 

LENGTH IS .*..) 

5 .* 



YES .* DEVICE « 
...•SPECIFIED IS A 
«. 7-TRACK .* 
•.TAPE .* 



*«*««C 5 ********** 
•REPLACE ACCRESS* 
*0F 7-TRACK MODE* 
♦TABLE WITH THAT* 

* OF 9-TRACK * 

* MODE TABLE * 



* PCINT TO THE 

* NEXT ENTRY IN 
•THE MODE TABLE 

* *K5 



.* MCCE *. 

.* SPECIFIED *. 

.IS G.T. TABLE. 

*. ENTRY .* 



F5 *. 
.* MCCE *. 

.* SPECIFIED «. NO 
•.EQUALS TABLE .*... 
*. ENTRY .« 



#*G5******* 
CHANGE SEARCH* 

* ARGUMENT IN 
• 'MODRST' TO 

• "SET MCDE 

* COMMANC' • 



LOAD ADDRESS 

OF 'RETURN* 

IN REGISTER 

LINKR2 



•VALIDITY CHECK 
« AND CONVERT 

• MODE 



*J1 

THE SCAN ROUTINES 
SET CONDITION CODES 
TO INDICATE THE 
CHARACTER THAT 
STOPPED THE SCAN. 
TFIE VALIDITY OF 
THIS CHARACTER 
DEPENDS ON THE 
STATEMENT FORMAT. 



J2 *. 


»#»*»J3*«»»»* 




*UNPA 


OPERAND *. YES 




IS 'UA' .* 


...X* UNASSIGN 




* PREVIOUS 


.* 


* ASSIGNMENT 



*»J4******* 
* MODIFY * 

* INSTRUCTION * 
* AT 'MODRST' 

* WITH MODE * 
SPECIFIED *J5 



*J5 
THE MODES SPECIFIED 
IN THE ASSGN STATEMENT 
BECOMES THE SEARCH 
ARGUMENT FOR THE 
FOLLOWING TABLE 
LOOK-UP. 



**»»*K 4* ***♦♦♦*• 
♦LOAD ADDRESSES 

* OF 7-TRACK 

* MODE TABLE 

* AND OF NEW 

* PUB 



ON FIRST PASS THROUGH 
THIS ROUTINE, THIS IS 
THE FIRST ENTRY IN THE 
TABLE. 
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Chart CB. $$BATTNI - ASSGN Statement Processor (Part 2 of 2) 
Refer to Chart 05. 



••••• 

♦CA » 
• G3* 



MKASGN X 
• UNPA 



UNASSIGN 

PREVIOUS 

ASSIGNMENT 



#*»*«C1**»*»»«*»« 
♦PUT THE START- • 
• ING ADDRESSES * 
•OF THE LUB AND • 
•PUB TABLES INTO* 
«A PAIR OF REGS • 



•C2 
IGN SET INITIALLY. I 
NWPBPT HAS NOT BEEN 
MODIFIED BY TXCUU 
SUBROUTINE. IT 
CONTAINS A CODE, 
FE, THAT MEANS 
IGNORE THE PUB. 



••*»*B3*««*»*»**« 
•PUT THE START- • 
• ING ADDRESSES • 
•OF THE LUB AND • 
•PUB TABLES INTO* 
•A PAIR OF REGS • 



.» IGN PUB • 
.INDICATED BY 
». LUB .» 



•B4 
ADDRESS OF JIB 
EQ VALUE OF FAVP 
MULTIPLIED BY 4 
PLUS THE STARTING 
ADORESS OF THE 
JIB TABLE. 



•**C4****** 
ERRRTN 
CHART AC 
• 04 



NDCHFO X 

•««««B5««»««««« 

• CALC ADDR OF 

• JIB TO BE 

• ATTACHED TO 

• THE CHAIN 

• «B4 



ATTACH THE 

JIB TO THE 

CHAIN 



»*D1*»»*«*» 

• PUT PUB 
POINTER AS 
DETERMINED 

BY TXCUU 

♦ INTO LUB 



.* IGNORE ». 
.PUB INDICATED. 
•• »C2 .* 



.•DEVICE ». 

SPECIFIED *. 

ASSIGNED TO. 
. SYSLOG .* 



ERRRTN 
CHART AC 



• E2 
•1A20D INVALID 
DEVICE TYPE". 



PUB 

INDICATES 

.DEVICE EQ. 

• •TAPE .• 



•»»**E3*« •••*•*• 

• GET ADDR OF 

• FAVP. FAVP 
•POINTS TO NEXT 

• AVAILABLE JIB 

• ENTRY 



♦04 
•1A00D 
INVALID I/O 
ASSIGNMENT*. 



• E4 
ON THE FIRST 
TIME THROUGH 
THIS BLOCK TESTS 
THE JIB POINTER 
IN THE LUB. ON 
OTHER 

ITERATIONS, IT 
TESTS THE LAST 
BYTE OF THE JIB 
ENTRY ITSELF FOR 
THE SAME 
CONDTION. EXIT 
FROM THE LOOP 
OCCURS WHEN THE 
END OF THE CHAIN 
IS FOUND. 



.ASGPUB X 

»*G1*****»* 

♦ SET • 
OWNERSHIP FLAG* 

* IN LAST 
• BYTE OF • 

* PUB • 



ANY 
FREE 
JIBS 



••*G3«****** 

SET 

LUB 

POINTER TO 



•**»F4****«* 

* ERRRTN 

* CHART AC 

* »G4 



•«««D5**««««* 
SET FAVP 
TO DISPLACE- 
MENT INCEX 
OF NEXT 
FREE JIB 



««««E5*«*«««*«« 

SET END OF 

CHAIN SIGNAL, 

X'FF 1 , IN THE 

NEW JIB 



STCRE 
ALTERNATE 
PUB POINTER 



*G4 
•1A30D NO 
FREE JIBS' 



SET TYPE 

AND OWNERSHIP 

IN JIB 



SET MODE 
IN BYTE 5 
OF PUB 



* CONTROL 

* CHART AB 



•♦*J3««****** 

CALCULATE 

THE ADDRESS 

OF THE NEXT 

JIB ENTRY 

*J4 



♦ J4 
NEXT JIB ENTRY 
ADDR EQ POINTER 
VALUE MULTIPLIED 
BY 4 PLUS STARTING 
ADDRESS OF JIB TABLE. 
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Chart CC. $$BATTNI - Validate SYSXXX Subroutine 
Refer to Chart 05. 



*»*«A2*«*** 
SYSXXX 



*D1 
P0INT1 AND P0INT3 ARE 
INITIALIZED WITH THESE 
NEW VALUES SO THAT THEY 
CAN BE USED BY THE NUMCON 
SUBROUTINE DURING VALIDITY 
CHECKING OPERATIONS. 



B2 ». 

.♦LENGTH ». 
.*0F OPERAND 
♦. EQUALS 6 
*. CHARS . 



C2 ». 

.* FIRST ». 
♦THREE CHARS* 

OF OPERAND 
♦. EQ SYS .* 



«#«»*D2 ♦♦♦♦♦♦♦*♦♦ 

♦ SET OPERAND ♦ 
♦POINTER, POINTl,^ 
♦TO ADDR OF THE ♦ 

♦ FOURTH ♦ 
♦CHARACTER »D1« 



♦CALCULATE NICL 
♦ENTRY, SAVE IT 

♦ FOR UNASSIGN 

♦ SUBROUTINE 



GET ADDRESS 

OF FICL FROM 

COMM. REGION 

CALCULATE 

FICL ENTRY 



♦ B4 
NICL ENTRY EQUALS STARTING ACCRESS CF 
NICL TABLE, NICLAD, PLUS THE 
DISPLACEMENT INDEX. THE NICL 
ENTRY IS SAVED IN LCCATION 
NICL + L FOR THE UNASSIGN 
SUBROUTINE, UNPA, CHART CE. 



SYSMODM X 

♦GET FICL ENTRY ♦ 

♦ FOR PARTITION ♦ 
♦BEING INITIATED^ 

♦ AND STORE IN ♦ 

♦ FICL ♦ 



= SYSTEM 

1 = PROGRAMMER 

(SET IN WRKRG1 BY NUMCOM 
SUBROUTINE) 



♦ Fl 
$$BATTNP USES A ROUTINE 
IDENTICAL TO THIS ONE, 
STARTING AT SYSXN2, EXCEPT 
THAT THE LABEL IN $$BATTNP 
IS SYSRFG. 



###*«E2 ♦♦♦♦♦♦ 

♦ SET LENGTH 

♦ COUNTER, 

♦ P0INT3, WI 

♦ THE VALUE 

♦ ♦Dl 



TH 



♦VALIDITY CHECK 
♦NUMERIC VALUES 
♦ AND CONVERT 



SYSTEM 

UNIT 

♦ D4 



♦ ****F3^^^^^^^^ 

♦ GET NICL 
♦ENTRY FOR THIS 

♦ PARTITION AND 

♦ STORE IN NICL 



ADD UNIT NO. 

TO SYSTEM 

NICL TO POINT 

TO CORRECT 

PARTITION 



♦ FA 
THE NICL VALUE IS DETERMINED AT 
SUPERVISOR GENERATION TIME. WHEN 
THE UNIT NUMBER SUPPLIED BY THE 
ASSIGN STATEMENT, IS LESS THAN THE 
NICL VALUE A LUB ENTRY EXISTS 
FOR THE UNIT. 



»«**G !»•**»**■ 

SYSXN2 OR 

SYSRFG 

♦Fl 



NUMERIC 

VALUE GT 

255 



.♦ VALID ♦ 
♦ LOGICAL 
UNIT 



SYSXN2 

♦ ♦♦♦♦^♦♦♦♦♦♦♦^ 

♦ CALC FICL 

♦ AND NICL 

♦ DISPLACEMENT 

♦ INDEXES - 

♦ KEY/16 



»»*#G4* ♦♦«♦♦♦♦♦ 

CALCULATE THE 

CORRESPONDING 

LUB ENTRY 

ADDRESS 

♦ G5 



CALCULATE THE 

CURRENT PUB 
ENTRY ADDRESS 



♦G5 
LUB ENTRY ADDRESS EQUALS 
UNIT NUMBER PLUS THE 
VALUE CF THE FIRST UNIT 
IN CLASS, OOUBLED, PLUS 
THE STARTING AODRESS OF 
THE LUB TABLE, LUBADO. 



♦H5 
PUB ENTRY AODRESS EQUALS 
DISPLACEMENT INDEX FROM 
THE LUB ENTRY, MULTI- 
PLIED BY 8, PLUS THE 
STARTING ACCRESS OF THE 
PUB TABLE, PUBADD. 



♦ GET ADDRESS 

♦ OF NICL FROM 

♦ COMM. REGION, 
♦STORE IN INSTR. 

♦ AT • SYSMODM* 



♦ J3 
•1AA0D INVALID 
LOGICAL UNIT 
SPECIFICATION*. 



SAVE THE 

LUB AND PUB 

ADDRESSES IN 

LOCATION 

IOTADR 



• ♦♦♦^♦♦♦♦♦♦♦♦« 

RETURN TO 

ADDRESS IN 

LINK REGISTER 
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Chart CD. $$BATTNI - Validity Check Channel and Unit 
Refer to Chart 05. 



*A1**»«* 
TXCUU 



«#»*B1«*»*»*«»* 

CALCULATE 

OWNERSHIP 

MASK FOR INST 

LABELED 
OWNRSH *B2 



MASK EQUALS 8, 
MINUS KEY 
DIVIDED BY 16 
8-(KEY/16) . 



OWNERSHIP BIT SWITCHES ARE 
ZERO AT THIS TIME, ALLOWING 
THE FULL BYTE IN PUB TO BE 
TESTED FOR ZERO. 



#«»#»C3«»**»»»*«« 
» SAVE DEVICE « 
» TYPE CODE IN « 
•LOCATION DVCTYP* 

* FOR LATER « 

* TESTING » 



» ERRRTN 
» CHART AC 



•****EL**»*»***** 

* PUT THE * 

* STARTING ADDR • 
» OF THE PUB • 

* TABLE INTU * 

* REGISTER PGINT1* 



*»»#»D3»»«*»***» 

* SAVE THE ADDR 

* OF THIS PUB 

* ENTRY IN SAVE 
•AREA, IOTADR+8 



• 04 
'1A7CO INVALID 
DEVICE STATUS'. 



• E4 
PUB POINTER EQUALS 
PUB ENTRY ADDRESS 
MINUS STARTING ADDRESS 
OF PUB TAELE, PU8ADD, 
DIVIDED BY 8. 



END OF 
PUB 
TABLE 



••CHANNEL* 

AND UNIT 

ENTRY IN 

PUB 



»*»*#H1 •♦*»»•♦»* 

* ADO 8 TO THE 

* PUB POINTER, 
♦PUINT1 SO THAT 

* IT POINTS TO 
•THE NEXT ENTRY 



♦»F2»«««*« 

ERRRTN 

CHART AC 



.»»F3« 
MOVE DEVICE 

TYPE CODE 
(X'51« ) TO 

-DVCTYP- 



»G2 
•1A50D DEVICE 
NOT SPECIFIED' 




STORE NEW 

VALUE 
IN NWPBPT 



»G4 
IN SSBATTNI, 'NWBPT' AND 'MODRST' ARE INSTRUCTIONS 
THAT ARE MODIFIED DIRECTLY. IN SJBATTNP, WHICH 
USES A SUBROUTINE IDENTICAL TO THIS CNE, THESE 
TWO LABELS ARE CONSTANTS FOR TEPPCRARY STORAGE. 



**J3««##«»* 

♦RESET MODE • 

• RESET BYTE • 

•AT MOCRST WITH 

VALUE FROM PUB« 

• »G4 • 



DEVICE 

TYPE EQ 

TAPE 



* MODIFY • 

• MODRST • 
WITH STANDARD 

* MODE VALUE • 

* FROM PUB • 
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Chart CE. $$BATTNI - Unassign Subroutine 
Refer to Chart 05. 



*A1#**« 
UNPA 



»A2»«»»» 
UNPAN2 



**B1******* 

LOAD KEY 

IN WORK 

REGISTER 



GTNXLB X 

***»«B3**«******« 

♦SCNLUB CF» 

•SET UP LOCATION* 

• JBSLUB WITH » 

* LUB ENTRY * 



UNPAN2 

»*»«»C1»*****»« 

* CALCULATE 

* MASK TO TURN 

* OFF PUB 

* OWNERSHIP 
« FLAG »C2 



MODIFY 

•RSTOWN' 

WITH MASK 

VALUE 



*C2 
MASK VALUE 
EQUALS 256 MINUS 
KEY DIVIDED BY 16 
256-(KEY/16) . 



♦ 02 
THIS TEST CHECKS 
THE PUB POINTER 
FIELD OF THE 
LUB. 



C3 *. 

.♦ END *. 

• OF CLASS 
WITHIN LUB 

♦ . TABLE . 

». «A5 .* 

"♦NO 



D3 ♦ . 
.♦ PUB ♦. 

POINTERS 
ARE EQUAL 



«A5 
THE SCNLUB 
SUBROUTINE 
RETURNS TO THE 
LINK REGISTER 
ADDRESS WHEN 
THERE ARE NC 
MORE UNITS 
LEFT IN THE 
CURRENT CLASS. 
THE NSI AFTER 
THE BAL IS A 
BRANCH TO 
RSTCWN. 
OTHERWISE, IT 
RETURNS TO LINK 
REGISTER + 4, 
WHICH IS CMPBPT. 



♦ TURN ♦ 

♦ OFF * 
PUB OWNERSHIP 

• FLAG ♦ 



DEVICE *. YES 
TYPE IS .*.... 
TAPE .* 



»«»»D4******** 

REPLACE LUB 

IN JBSLUB 

WITH THE 

ORIGINAL LUB 

IN LBSLUB 



••C5«**«*«* 

• RESET * 

FROM 

STANCARD 

MODE IN PUB 



CONDITION CODE 
WAS SET IN THE 
JIB SCAN 
ROUTINE. 



•LOAD AODRESSES 
• OF LUB ENTRY 
» AND PUB ENTRY 



#*«G1****»*»* 

SAVE THE 

LUB ENTRY 

IN LOCATION 

LBSLUB FOR 

COMPARISON 



♦.»»F2« 

INSERT .. . . 

IN PUB TO 

INSURE 

UNASSIGNED 



FF« 



•*»»G2*»»»*»*** 

RETURN TO 

ADDRESS IN 

LINK REGISTER 



GTNXJB 

***.«E3«» 
•SCNJIB 



♦RESET LOCATION 
* JBSLUB FROM 
» JIB ENTRY 



CKNXJB X 

*»*#»E4********* 
•SCNJIB CF 

♦RESET LOCATION 

♦ JBSLUB FROM 

♦ JIB ENTRY 



.♦STORED ♦. 
NO .♦ ALTERNATE ♦. 
...♦. ASSIGNMENT .♦ 



REPLACE JIB 

CHAIN BYTE 

WITH VALUE 

OF FAVP 



...*E5«*«««**« 

ZERO THE 

FIRST THREE 

BYTES OF THE 

JIB ENTRY 

*J3 



• «««F5""«*«* 

RESET LBSLUB 

WITH LUB 

VALUE IN 

JBSLUB 



CALCULATE 

NEW PUB 

ENTRY AODRESS 



♦ .(^♦♦♦♦♦♦* 
•MOVE «FFFF«* 
•INTO THE LUB 

ENTRY TO 
♦UNASSIGN THE 
LOGICAL UNIT* 



♦ H2 
LUB ENTRY 
ADDRESS 
EQUALS THE 
DOUBLED VALUE 
OF THE STARTING 
ADDRESS OF THE 
LUB TABLE, 
LUBADD. 



TMFAVP X 

•••♦•HA******** 

♦ REPLACE FAVP 

♦ WITH POINTER 

♦ TO THIS JIB 

♦ ENTRY 



♦CALC LUB ENTRY 
♦ADDRESS OF THE 

♦ FIRST LUB FOR 

♦ THE CURRENT 

♦ CLASS *H2 



SET UP LUB 

POINTER AND 

COUNT FOR 

LUB SCAN 



♦ J2 
A COMPARISON 
IS MADE BETWEEN 
THE PUB POINTER 
IN THE ORIGINAL 
LUB, SAVED AT 
LBSLUB, AND THE 
PUB POINTER IN 
THE LUB FOUND 
IN THE SCAN, 
JBSLUB. WHEN- 
EVER IDENTICAL 
PUB POINTERS 
ARE FOUND, THE 
OWNERSHIP FLAG 
IN THE PUB IS 
NOT RESET. 



♦J3 
THE JIB IS 
HANDLED AS 
IT WERE A 
LUB ENTRY. 



*K3 



NEW PUB ENTRY 
ADDRESS EQUALS 
NEW DISPLACE- 
MENT INDEX 
MULTIPLIED BY 
8 PLUS THE 
STARTING 
ADDRESS OF THE 
PUB TABLE, 
PUBADO. 



.♦STORED ♦. 
♦ ALTERNATE 
ASSIGNMENT 



•«..J5«««*«<»* 

ZERO THE 

FIRST THREE 

BYTES OF THE 

JIB ENTRY 
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Chart CF. $$BATTNI - Scan LUBs and JIBs Subroutines 
Refer to Chart 05. 



«A1»«*«« 
SCNLUB 



*»*»*B1*«**»**#« 

* GET ADDRESS 
•OF LUB ADDRESS 

* IN WRKRG1 



*#CL»****** 

STORE LUB 

ENTRY AT 

JBSLUB 

♦C2 



»*»A3«»*»* 
SCNJIB 



B3 •. 

.♦JBSLUB ». 
•JIB POINTER* 

INDICATE 

♦. X'FF' .» 

•. «B4 .* 



*C2 
USE THE CONTENTS OF 
JBSLUB AS A COMPARAND 
IN THE MAIN UNASSIGN 
ROUTINE. 



•NO 



***C3«**» # ** 

CALCULATE 

ADDRESS OF 

NEXT JIB 

•CA 



*#**D 1 ♦»»»»• #♦* 
POINT TO NEXT 

LUB ENTRY 

AND SAVE ADDR 

IN LOCATION 

SCFICL 



#*»*E1 •»••••*•* 

GET REMAINING 

NUMBER IN 

CLASS FROM 

LOCATION 

SCFICL +2 



.« ZERO 
*. NUMBER IN 
•. CLASS . 



•«**03** •»•»•» 

SAVE OLD JIB 

DISPLACEMENT 

INDEX IN 

TMFAVP 



»»»»F2»*»*»»»* 
• RET TO ADDR 
.X» IN LNK REG 



»**#E3******** 

STORE NEW 

PUB AND 

JIB POINTERS 

IN LOCATION 

JBSLUB 



RET TO ADDR 
IN LNK REG 



END OF 

CHAIN 

CHECK. 



♦CA 
JIB ADDRESS EQUALS 
DISPLACEMENT INDEX 
FROM LUB, MULTIPLIED 
BY 4 PLUS THE STARTING 
ADDRESS OF THE JIB 
TABLE. JIBADD. 
NOTE 

THE LUB USED IN THE 
PRECEDING CALCULATION 
IS IN LOCATION JBSLUB. 



» DECREASE • 
•COUNT OF UNITS * 

• IN CLASS, AND » 

• SAVE FOR • 
•PRECEDING TEST * 



RET TO ADDR 

IN LNK REG 

PLUS 4 
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Chart CG. $$BATTNI - Conversion Subroutines 
Refer to Chart 05. 



####A1 **»*»*»#• 
HEXCON * 



***» A3* ******** 
* NUMCON 



•**A5 ********* 
CHKRNG « 



Bl *. 
.* FIRST *. 
* TWO 

CHARACTERS 

*. VALID . 

*. *B2 .* 

**YES 



* LAST * 

CHARACTER 
•APOSTROPHE.* 



**«D1******** 

CALCULATE 

NUMBER OF 

HEXAOECIMAL 

CHARACTERS 

MINUS ONE 



APOSTROPHE 



***B3********* 

SET UPPER 

LIMIT OF 9 

FOR RANGE 

CHECK 



.X* 



##02****** 

NVSERR 

CHART AC 



* CHECK ALL 
•CHARACTERS FOR 

* VALIO LIMITS 



NUMSYS 

•••••C4*« ****** 
» INSERT «0« 
* IN WRKRG4 
TO SIGNIFY 
SYSTEM CLASS 



##•04******** 

SET POINTER 

TO START OF 

NUMTBL 

MINUS 4 



•*««*B5 •••••••** 

« GET CHARACTER 
•STRING ADORESS 

* AND NUMBER 

* OF CHARACTERS 



CHARACTER 
LESS THAN 
. ZERO 



CHARACTER 
GT UPPER 
. LIMIT . 



TRANSLATE 

A-F TO 

•FA» - X'FF 



*••»• Fi •»•#•«*#•« 

* SET POINTER * 

* AND SET UPPER ♦ 
•LIMIT OF X'FFV » 
♦FOR RANGE CHECK* 



*##*#E3********* 

* PACK TO 
•PACKED DECIMAL 

* AND CONVERT 

* TO BINARY 



•••F3»***«»» 

INSERT «1« 

IN WRKRG4 

TO SIGNIFY 

PROGRAMMER 

CLASS 



.NUMLOP X 

#####E4#######« 

• ADD 4 TO 

• POINTER FOR 

• NEXT ENTRY 

• IN NUMTBL 



«##E5««««««* 

ADD 1 TG 

POINTER, 

SUBTRACT 1 

FROf CCUNT 



• CHECK ALL 
•CHARACTERS FOR 

• VALID LIMITS 



PACK TO 

BINARY, LOAD 

INTO WRKRG1 



#*#*J 1*##»#*##» 

RETURN TO 

ADDRESS IN 

LINK REGISTER 



.SYS . 


NUMTBL 


FINAL . 


• 


VALUE 


NUMBER. 


.RDR . 


1 





.IPT . 


2 


1 


.PCH . 


3 


2 


.LST . 


4 


3 


.LOG . 


5 


4 


.LNT . 


6 


5 


.SLB . 


8 


7 


.RLB . 


9 


8 



#«#*G5**»«««««« 

RETURN TC 

AODRESS IN 

LINK REGISTER 



##»#»H4*» •*♦•*** 

• GET NUMTBL 

• NUMBER FOR 
•THIS ENTRY AND 

• REDUCE BY 1 

• «J2 



»###J 4» *•»»»*#« 

RETURN TO 

ADDRESS IN 

LINK REGISTER 
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Chart CH. $$BATTNI - UNA Statement Processor 
Refer to Chart 05. 



GET KEY OF 

FIRST OPERAND 

IN P0INT2 



CHECK AREA 

TO BE 

DETACHED 



SCAN 
DELIMITER 
. IS A 
*. BLANK.* 



♦»*#E1»*»*»*»*»* 

SAVE THE ♦ 

KEY OF THE * 

FIRST OPERAND ♦ 

IN P0INT4 * 



X 
**»*»B3*«* 
•UNARTN 


»•«»••• 
CJ* 


*B4 
THE UNITS UNASSIGNED ARE 
THOSE BELONGING TO THE 
AREA SPECIFIED BY THE 
SECOND OPERAND OF THE UNA 
STATEMENT. 


* 


UNASSIGN ALL • 
LOGICAL UNITS • 
IN CLASS *B4 » 











SNGUNA 

**#«»E3« 
•UNARTN 



• E4 
THE UNITS UNASSIGNED ARE 
THOSE BELONGING TO THE 
AREA SPECIFIED BY THE 
FIRST OPERAND OF THE UNA 
STATEMENT. 



UNASSIGN ALL 
LOGICAL UNITS 
IN CLASS «E4 



••**«F1*«*«»**«» 

•GETKEY CJ 

♦ GET KEY OF 
•SECOND OPERAND 

* IN P0INT2 



X 
•»F3«««*»* 

CONTROL 
CHART AB 



CHECK AREA 

TO BE 

DETACHED 



•*K2*««*«* 

NVSERR 

CHART AC 
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Chart CJ. $$BATTNI - Miscellaneous Subroutines 
Refer to Chart 05. 



*A1****» 
CHKFUA 



Bl *. 
.* KEY *. 

.* OF OPNO * 
. EQ KEY OF 
♦.THIS PROG.* 



#***C1********* 

CALC PIB 

ADDRESS - 

STARTING ADDR 

OF PIB TABLE 

PLUS KEY 



#»C2****** 

NVSERR 

CHART AC 



***E1******»* 
RET TO ADDR 
IN LNK REG 



**E2****«» 

ERRRTN 

CHART AC 

«F2 



C3 *. 

.* SCAN *. 
» OELIMETER * 

IS AN EQUAL 
*. SIGN .* 



OPERAND 
LENGTH EQ 
. 2 CHARS . 



PUT Fl KEY 

INTO 

POINT2 



****A4***** 
* UNARTN 



#*#»*B3«* ******** 


*#»#»B 4* ****** 


♦SCANR2 AC* 


* SET LOGICAL 

* UNIT TO ZERO 


*-*-»-•-•-#-»-#-* 


* GET THE * 


* AND STORE 


* STATEMENT * 


* PROGRAM KEY 


* OPERAND * 


* IN 'UNAKEY' 



****C4 ***••*•••* 

SET SYSTEM * 

CLASS COM * 

AND STORE IT * 

IN 'UNACLS' * 



STORE LOGICAL 

UNIT NLMBER 

IN •UNALUN* 

AND LOAD 

KEY AND CLASS 



•1A60D UNIT 

CURRENTLY 

UNASSIGNABLE' 



.UNAGO X 

**«**F5***«* 

•UNPAN2 

* * UNASSIGN 

* LOGICAL 

* UMTS 



* PUT F2 KEY * 






* ADD 1 TO * 


* INTO * 






* LOGICAL UNIT * 


« P0INT2 * 






* NUMBER * 


» * 






* • 


X 






X 










H3 *. 






H4 *. 










.* OPERAND *. NO 




.* END OF *. 


*. IS F2 .*« 


... 




*. CLASS .* 








*. .* 








*. .* 




X 






•YES 


*•** 


• YES 






• 






* 1 










* 




X. 


***• 




X 






X 


**««J3»******** 






#*#» J 4#» »##*♦»# 


* RET TO ADCR * 






* RETURN TO * 


* IN LNK REG * 






• ADDRESS IN * 


• * 






* LINK REGISTER * 
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Chart CK. $$BATTNJ - LISTIO Statement Processor 
Refer to Chart 05. 



••Al**»*«* 
$$BATTNJ 



•A2»»»»* 
LISTIO 



GET THE 
OPERAND FROM 
LISTIO STMNT 



*»C2«***»* 

NVSERR 
CHART AC 



*»»»C3««*»****« 

PUT THE 

HEADER 

SIGNIFYING 

UNASSIGNED 

IN I/O BUFFER 



CUAPNX X 

*«»»*B4*»****»»* 

* ADD 8 TO THE 

* PUB POINTER 

* SO THAT IT 

» POINTS TO THE 

* NEXT PUB 



END 

OF PUB 

TABLE 



LIST 
BACKGROUND 
ASSIGNMENTS 



*»E2»»»*«« 

CONTROL 

CHART AB 



* LIST 

•FOREGROUND ONE 
» ASSIGNMENTS 



»»D3***»*»* 
• SET * 

* HEADER AND 
NONE LISTING 

• SWITCHES 
•TO NOP »G4» 



••••E3 ♦•*» 

PUT THE 

STARTING 

ADDRESS OF 

THE PUB TABLE 

INTO POINT1 



•••••F3«»**»***« 

• PUT THE 

• STARTING 
•ADDRESS OF THE 
•LUB TABLE INTO 

• POINT2 



LIST HEADER 

AND THE WORD 

NONE 



SPACE 

GNE 
LINE 



*. 


• • 


»»G2**»»»«»»* 


• CALC THE 


* 


OPERAND ». 




CONTROL • 


• PUB ADDRESS 




IS F2 • • 




CHART AB • 


• FOR SYSLOG 




.• 


* 


* 


• »K4 


* 


"*. .»"* 










♦ NO 






♦..• : 




• 






• 3 *«.. 




X 






• ♦*• X 






CHKUA 




CKPBUA .«. 




HI «. 




H2 ». 


H3 ». 














OPERAND ». NO 




OPERAND •. YES 


.♦ DEVICE • 




IS ALL .♦ 


.. ..X». 


IS UA ...... 


». DOWN 





• G4 
THE HEADER SWITCH, LSTUA, IS A PROGRAM SWITCH SET 
TO BRANCH AFTER AN UNASSIGNED HEADER HAS BEEN 
LOGGED. IT FUNCTIONS AS A FIRST TIME SWITCH AND 
IS INITIALIZED TO NOP. THE NONE-LISTING SWITCH, 
UAPSWH, IS PROGRAM SWITCH SET TO BRANCH WHEN 
SOMETHING HAS ALREADY BEEN LISTED. THE BRANCH 
PROHIBITS THE LIST-NONE OPERATION. THE SWITCH IS 
INITIALIZED TO A NOP (NOTHING LISTED). 



LIST 

BACKGROUND 
ASSIGNMENTS 



*«J2**»»»» 

NVSERR 

CHART AC 



DEVICE 

ASSIGNED 

.TO SYSLOG. 



•»»*K1»*«« 
LSTF1 


»••»* 

CL 


LIST 

FOREGROUND ONE 
ASSIGNMENTS < 


xl 

x 

*CL*» 


LSTF2 



SYSLOG PUB ADDRESS EQUALS THE INDEX DISPLACEMENT 
(PUB POINTER) FROM THE SYSLOG LUB MULTIPLIED BY 8 
PLUS THE STARTING ADDRESS OF THE PUB TABLE, PUBADD. 
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Chart CI*. $$BATTNJ - Subroutines 
Refer to Chart 05. 



»»**»Bi*»»*»**«*« 

* PUT THE * 

* SYSTEM FICL * 
•AND NICL VALUES* 

* INTO WRKRG1 * 



CLEAR 

THE OUTPUT 

BUFFER 



PUT THE 

SYSTEM 

HEADER IN 

THE OUTPUT 

BUFFER 



#»*B3»*«»***»* 
PUT THE Fl 

FICL AND 
NICL VALUES 
INTO WRKRG1 



*«*»A4****» 
• LOGGER 



»#»#»B4»»**«**»»* 

• PUT END OF • 

• BUFFER ADDR * 

• INTO WRKRG1 * 

• FOR REVERSE * 

• SCAN • 



CLEAR 

THE OUTPUT 

BUFFER 



«D2*«*«» 
LSTBGF 



*»»»03 *•*••*»*• 

PUT THE 

FOREGROUND 

ONE HEADER 

IN THE OUTPUT 

BUFFER 





* 


CHARACTER 
BLANK 

"•YES 


*. NO 


NO 


* 


X 

D4**"». 

" END OF *». 

BUFFER 

*• •* 
'•YES 








!x... 







LSTBGF X 

«*E1**«*«»« 

♦SET SYSTEM 

* UNIT LIST 
• SWt SYSSWH 

• TO BRANCH 



*»E4*****»* 

CALCULATE 

LENGTH OF 

BUFFER 

CONTENT 



«»*B5««*«««»« 
PUT THE F2 

FICL AND 
NICL VALUES 
INTO WRKRG1 



CLEAR 
THE OUTPUT 

BUFFER 



•**«D5««««««««« 

PUT THE 

FOREGROUNC 

TWO HEADER IN 

THE OUTPUT 

BUFFER 



•LSTBGF CL« 

•LIST FOREGROUND* 
• TWO UNIT • 
« ASSIGNMENTS • 



*««**F1****»*»**« 
» PUT ADDR • 

* OF SYSTEM • 

• CLASS TABLE • 

♦ INTO A REG, • 
•WRKRG2 *F2* 



• F2 
THE REGISTER 
CONTAINS THE 
LOGICAL UNIT 
SPECIFICATION. 



»«#**G4*»«**»«**< 
» ZERO h 

• WRKRG1 TO 
•SET LENGTH FOR 

• ZERO OUTPUT i 



X 
««F5«*«*«* 

CCNTRCL 
CHART AB 



#*#»»H4* *••»••♦• 

• ADD 1 TO 

• LENGTH AND 

• STORE IN CCW 



•*»«J4»****»**»** 
EXCPRG AC 

LOG I/O 



»«««K5«*«*«*«*« 

RETURN TC 

ADDRESS IN 

LINK REGISTER 
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Chart CM. $$BATTNJ - Locate Assignment Routine 
Refer to Chart 05. 



**##Blf 

RESET THE 
REGISTER THAT 

CONTAINS 
LOGICAL UNIT 
SPECIFICATION 



LSTBUN 

•••••CI* 

* SAVE THE 

* LOGICAL UNIT 

* SPECIFICATION 
» REG IN 

* 10TADR 



*C2 
STARTING SCAN 
ADDRESS EQUALS 
DOUBLE THE FICL 
VALUE PLUS THE 
STARTING 
ADDRESS OF THE 
LUB TABLE, 
LUBADD. THIS 
VALUE IS SAVED 
IN SCFICL. 



* CALC NICL 

• ENTRY ADDRESS 

* = INDEX 
•DISPLACEMENT + 

• NICL ADDRESS 



OUTPUT THE 

SECONDARY 

HEADER 



SPACE 

ONE 
LINE 



CLEAR 
OUTPUT 
BUFFER 



ADD 3 TO 
WRKRG1 TO 
POINT TO 
NEXT LNIT 



««*B5«»»«««« 

ADD 1 TC 

WRKRG1 

SC THAT IT 

CONTAINS 

NEXT UNIT 



• DA 
PROGRAM SWITCH 
SET TO BRANCH 
WHEN SYSTEM 
UNITS ARE TO BE 
LOGGED. NOP 
WHEN BG 

PROGRAMMER CLASS 
UNITS ARE TO BE 
LOGGED. WHEN 
SWITCH IS SET 
TO BRANCH 
WRKRG1 CONTAINS 
POINTER TO 
TRANSLATE TABLE. 



SAVE NICL 

ENTRY IN 

•SCFICL* FOR 

LUB SCAN 



GET 
FICL 
ENTRY 



LISTING 
SYSTEM 
UNITS 



•••••E2***«*«»»«* 




«##*»E3»»«»«»«»*» 




* CALCULATE 


• 




♦SCNLUB CF« 




* LUB ADDRESS 


• 








» FOR SCAN 






• SET UP LOC • 




• »C2 






• JBSLUB FROM • 




* 


• 




• LUB ENTRY • 












• F4 
SCNJIB 








X 


SUBROUTINE IS 


X 








IDENTICAL TO THAT IN 


• •••*F2"««««**»» 




F3 •. 


$$BATTNI EXCEPT 


•LOGGER 


CL» 






THAT THE OLD 






YES .* END ». 


JIB DISPLACE- 


• OUTPUT 






.•. OF CLASS .• 


MENT INDEX 


* THE HEADER 








IS NOT SAVED 


* 


* 


X 


*. .« 


IN TMFAVP IN 
SSBATTNJ. 






♦ «NO 






• CN 










• F3 














»G4 










PROGRAM SWITCH 






NDSCAN 


SET TO 8RANCH 


X 






X 


IF MORE 


*»»»#G 2 *****»*»»* 




♦••»«G3«*««»*»««* 


STANDARD 


•SPACE 


CN» 




• PUT THE » 


ASSIGNMENTS ARE 








• CHARACTERS • 


TO BE LISTED. 


* SPACE 






• SYS INTO THE • 


BRANCH WILL BE 


♦ ONE 






* OUTPUT BUFFER • 


TAKEN AT END 


• LINE 


• «» 




•••••••*••*•••••• 


OF JIB CHAIN. 



SAVLUS X 

•««««C5**««««**« 

• SAVE THE 

• LOGICAL UNIT 

• SPECIFICATION 

• IN LCCATICN 

• ICTACR 



•LIST ASSIGNMENT* 

• FCR LUB ENTRY • 

• AT JBSLUB • 



»«««E5«««««*»* 

PUT THE 

CHARACTERS 

-ALT- INTC 

THE COMMENTS 

FIELC 



• El» 
LANXJB 



• SET LUB VALUE • 
•IN JBSLUB FRCM • 
•CHAINED JIB «F4« 



CALCULATE 

SYSTEM NICL 

ENTRY, STORE 

IN •SCFICL' 




LSTBUN1A .». 



LISTING 
SYSTEM 
UNITS 



SET UP 
SECONDARY 
HEADER 



•*»*H3««««*»»«« 

PUT LOGICAL 

UNIT 

SPECIFICATION 

INTO 

WRKRG1 



SYSTEM 

UNIT LIST 

«D4 



STDSWH 




.«. 






GS 








• L 


[ST *. 


BR 




STAKOARD 






ASSIGNMENTS 


. 


• 




• G4 










X 














• NCP 


• CF • 








• B5* 
























LSTSTD 






X 






H5 


* * * • . 










NC . 






;nd 






Uh 


JIB 


. 


• 


CHAIN . 



PUT SYSTEM 
UNIT NAME 
INTO THE 

I/O BUFFER 



• B3* 
NOUNIT 



»»»*»K3«* *••»*•*• 
•CONVERT LOGICAL* 

• UNIT NUMBER • 

• TO EBCDIC AND • 
•PUT IT INTO THE* 

• OUTPUT BUFFER • 



.* END OF *. NO 
.SYSTEM CLASS .« . . . 
*. UNITS .* 

**«YES • 

Ilstprg » 
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Chart CN. $$BATTNJ - Output List (Part 1 of 2) 
Refer to Chart 05. 



•***A2 ******** 
* SPACE 



STORED 
ALTERNATE 
. IN JIB • 



STORED 
STANDARD 
. IN JIB 



**0i******* 
SET STANDARD* 

* ASSIGNMENT * 

LIST SW 

* TO BRANCH * 
* (STDSWH) * 



X 

»****C2 ********** 

♦logger cl* 
*~ "space one" ~* 

* LINE * 

* *F2 * 



***D2******* 
RET TO LNK 

REG ADDR 
VIA LOGGER 



••••A3** •*••••• 

* NOUNIT * 

• • 


*CM * 
* K4* 

» • 

LSTPRG X 

•****B4**** ****** 
•SPACE CN* 

*" "space'one"*"* 

* LINE * 

• • 




•••• . 
•CM *..! 

* Jl* 

•*•• . 
X 
••••*B3* ********* 
•LOGGER CL* 
*—*—*—*—*—*—*—*—* 

* OUTPUT THE * 

* HEADER * 


•CM • 
• G5« 

LSTSTD X 

**B5******* 
* TURN OFF 

* STANDARO 
« ASSIGNMENT 

* LIST SWITCH 
« •STDSWH' 



**C4******* 
RESET SYSTEM* 

* UNIT LIST * 
♦SWITCH SYSSWH, 

* TO NOP * 



X 

»***D3 •♦♦♦•*** 

PUT THE 

CHARACTERS 

-NONE- 

INTO THE I/O 

BUFFER 



LSTPRGl 

»»»#»D4** ******* 
♦INSERT 'O' FOR 

♦ PROGRAM 

♦ CLASS INTO 

♦ WRKRG1 



... THE ENTRY 

SAVED FOR 

STANDARO LIST 

IN LBSLUB 



»«»»05**«*****« 
MOVE THE 
CHARACTERS 

-STD- 
TC COMMENT 
FLD OF BUFFER 





X 






X 




*«»E1*»****»« 






»«*«*E3***^^^^^^^ 


* 


SAVE THE 


• 




♦LOGGER CL^ 




LUB ENTRY 


• 








FROM THE JIB 






♦OUTPUT THE LINE^ 




IN LOCATION 


• 




♦ PREVIOUSLY ♦ 


* 


LBSLUB 


* 




♦ SET UP ♦ 




• 




«*** . 




.....X. 






* * . 




X 




♦ F2 


•CM *... 








THIS IS A BRANCH IN 


* F3^ 




♦ CM * 




THE PROGRAM. IT IS 


»•*• 




* F5* 




SHOWN HERE AS A BAL 


NDSCAN X 








TO BETTER DESCRIBE 


*«***F3********** 








THE LOGIC FLOW. 


♦SPACE CN^ 




LANXJB 






♦ SPACE ONE ♦ 
♦LINE PREVIOUSLY^ 

♦ SET UP ♦ 



****G 3* ******* 
RET TO ADDR 
IN LNK REG 
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Chart CP. $$BATTNJ - Output List (Part 2 of 2) 
Refer to Chart 05. 



*A1»*»#» 
LSTASG 



♦ B3 
PUB ENTRY ADDRESS 
EQUALS PUB POINTER 
FROM THE LUB MULTI- 
PLIED BY 8 PLUS THE 
STARTING ADDRESS OF 
THE PUB TABLE, 
PUBADD. 



•••*ci********* 

COMPUTE 

ADORESS OF 

CORRESPONDING 

PUB ENTRY 

• B3 



*»*»*D1***»»**»* 

* CONVERT CHAN 

* AND UNIT SPEC 
♦TO HEXADECIMAL 

* EBCDIC 



*»**E1****»*«** 

PUT CHAN 

AND UNIT INFO 

INTO THE I/O 

BUFFER 



NOTASG 


X 




*C2* ********* 




SET * 




•IGN* » 




N THE I/O » 




BUFFER • 


* 


* 
















X ♦ 








02 ♦. 






. • 


UNIT *. YES 


*. 


IGNORED .♦..X 



#**##E2**»*»«« 

♦ SET 

♦ 'UNA' 

* IN THE I/C 

• BUFFER 



*»«»D3«»«*» 
* OUTPUT 



UALNOT 

»#»*«C4* ******* 

* CONVERT CHAN 

* AND UNIT TO 

* HEXADECIMAL 

* EBCDIC 



PUT CHANNEL 

AND UNIT 
INFO IN THE 
I/O BUFFER 



♦SET HEADER « 

* AND NCNE « 

LIST SWITCHES 



SPACE 

ONE 
LINE 



LOGLNE 

••««»F3» 

♦LOGGER 



SET LSTUA ANC 
UAPSWH TO THE 
BRANCH STATE. 



CLEAR 
OUTPUT 
BUFFER 



***«F5*«******* 

PUT 

SECONDARY 

HEADER IN 

OUTPUT BUFFER 



OUTPUT 
SECONDARY 
HEADER 



CONVERT MODE 

SET BYTE TO 

HEXADECIMAL 

EBCOIC 



SPACE 

CKE 
LINE 



.* DEVICE ». 

.TYPE IS TAPE . 

♦.SPECIFIED.* 



***J2******** 

MOVE MODE 

INFORMATION 

INTO I/O 

BUFFER 



**«!**♦**♦♦ 

RESET 

MODE 

TO MODE 

SPECIFIED 
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Chart DA. $$BATTNK - VOL Statement Processor 
Refer to Chart 05. 



♦♦♦*A1********* 

* * 

* VOL * 

* * 
*************** 



*****Bi********** 
♦FDKTV DA* 

*_*_*_*_*_*_*_*_* 

* STATEMENT * 
♦INITIALIZATION * 

* * 
***************** 



*****C 1 ********** 
♦SCANR2 AD* 

*_*_*_*_*..*..*_*_* 

* GET * 

* SYSXXX * 

* OPERAND * 
***************** 



DELIMITER 
IS A 

. COMMA . 



****AZ********* 

* * 

* FDKTV * 

* * 
*************** 



FDKTV 

*****B2********** 

* LOAD BASE * 

* REGISTER WITH * 

* FILE ADDRESS * 

* INFORMATION * 

* * 
***************** 



.* STATEMENT 
IN 
♦.SEQUENCE . 



**** 

* * 

* l * 

* * 
**** 



*****£!********** 

♦CNUNCO . DD* 
*_*_*_*..*_*_*_*_* 

♦CONVERT SYSXXX * 

♦ TO SYMBOLIC ♦ 

♦ UNIT ADORES ♦ 
***************** 



*****F1********** 
*FDKTVNM DA* 
*_*_*_*_*_*_*_*_* 

* PROCESS * 

* FILE NAME ♦ 

* OPERAND * 
***************** 



*****Gl********** 

* SET BITS IN * 

* JBCSW5 TO * 

* ALLOW DLAB * 

* OR TPLAB * 

* * 
***************** 



****H1********* 

* CONTROL ♦ 

* CHART AB * 

* * 
*************** 



♦Jl 
THESE 

INSTRUCTIONS 
ARE USED TO 
OUTPUT LABEL 
INFORMATION 
THAT WAS FOUND 
FOR THE PREVIOUS 
LABEL BLOCKS. 



**D2******* 
♦SET OFF ALL* 

* FLAGS IN * 
JBCSW5 EXCEPT 

♦ BLOCKS-NOT- ♦ 
♦ . PRESENT * 

*********** 



*****£ 2********** 

* PUT STARTING * 

* ADDR OF LABEL ♦ 

* AREA INTO * 
*PQINT4 AND SAVE* 

* EXTENT BASE ♦ 
***************** 



F2 ♦. 
.♦ FILE *. 
* TYPE IS 

SEQUENTIAL 
*. DISK 
*. *J1 .* 



*YES 



**Q2******* 

♦SET BITS IN* 

♦ MTAFLG AND ♦ 

♦ MTRSVD FOR ♦ 

♦LAST SEQ DISK* 

EXTENT *J1* 

*********** 



FDKTVI 

*****H2********** 
*LBOUT DH* 
*_*_*_*_*_*_*_*_* 

* OUTPUT LABEL ♦ 

* TO VOL AREA * 

* -SYSRES- *J1 * 
***************** 



**J2******* 
♦CLEAR FLAG ♦ 

* BYTES * 
* MTRSVD 

* AND MTFLG2 * 
IN LABEL AREA* 

*********** 



****K2********* 

* RETURN * 

* VIA LINK REG ♦ 

* * 
*************** 



**C3******* 

♦ RESET ALL ♦ 
SEOUENCE 
FLAGS IN 

JBCSW5 

* * 
*********** 



***** 
*DB ♦ 
♦ El* 



****Q4********* 

* * 

* CHKSLH ♦ 

* * 
*************** 



-*_*-.*-*-*-*- 



***************** 



SCAN 

STOP IS A 

. BLANK . 



****C5********* 

* * 

* FDKTVNM ♦ 

* * 
*************** 



FDKTVNM X 

*****05********** 
♦FSCAN1 DC+ 
*„*..*-*_*..*..*_*,.* 

♦ GET FILE ♦ 

♦ NAME ♦ 

♦ OPERAND ♦ 
***************** 



**** 

* * 

* 1 * 



****K3********* 

♦ NVSERR ♦ 

♦ CHART AC ♦ 

♦ * 
*************** 



OPERAND 
LENGTH GT 
. 



*****J4********** 

♦ MOVE * 

♦ OPERAND * 

♦ TO LOCATION * 

♦ 'PARMTR' * 

♦ * 
***************** 



***** 
*AB * 
* B5* 



.♦ IS ♦. 
.YES .♦ LENGTH ♦ 
X.. .♦.GREATER THAN 



*****G5********** 

♦ CLEAR FILE ♦ 

♦ NAME STORAGE ♦ 

♦ AREA AND * 

♦ MOVE THE FILE ♦ 

♦ NAME IN * 
***************** 



*****H5********** 

* * 

* CLEAR MTAFLG * 

* FLAG BYTE IN * 

* LABEL AREA * 

* * 
***************** 



*****j5********** 

♦ SET FILE NAME * 

♦ IN KEY FIELD* * 

♦ BLANK LAST ♦ 

♦ CHARACTER ♦ 

♦ OF KEY * 
***************** 



****K5 ********* 

* RETURN * 

* VIA LINK REG * 

* * 
*************** 
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Chart DB. $$BATTNK - TPLAB statement Processor 
Refer to Chart 05. 



«A4 
INCLUOES FILE 
SECURITY, BLOCK 
COUNT, AND 
SYSTEM COCE. 



TPLAB 
NO 



*C1 

VOL STATEMENT 
HAS BEEN 
PROCESSED. 



GET REST 

OF 
STATEMENT 



**E1**»*»* 

ERRRTN 

CHART AC 

*F1 



»F1 
■1S10D STATEMENT 
OUT OF SEQUENCE*. 



CORRECT 

SEQUENCE 

*C1 



» GET FILE 

« ID 

• OPERAND 



F2 *. 

.* FIRST •. 
» CHAR AN 
APOSTROPHE 



••••G2 ********** 

SET ADDRESS * 

OF ENTRY IN * 

LABEL STORAGE * 

AREA • 



•B4****» 
CHKRNG 



INSERT 
DEFAULT VALUE 

•0000000/ 
DOS/TOS/360' 



TPLEND X 

•••••E3*** ******* 

* SET JBCSW5 * 

* TO INDICATE » 
•TPLAB STATEMENT* 

* PROCESSED * 



••••F3******** 

RESET 

DATA 

LENGTH TO 80 

AND STORE 

IN DTALGT 



•••G3**«******* 

SET * 

ILE TYPE FIELD* 

TO «T» TO * 

INDICATE * 

TAPE * 



»*«»B5****** 
* CHKRNG1 



CHKRNG1 

•««««C5««*****«« 

* SET LIMIT (9) 

* FCR CHECKING 

* DECIMAL 

* DIGITS 



GET STRING 
ADDRESS AND 

NUMBER OF 
CHARACTERS 



CHARS 
LESS THAN 





»»64***»»* 

NVSERR 

CHART AC 



YES .* NO CHAR * 
......GREATER THAN 

*. MAX .* 



END 

CF 

STRING 



* 




• 


••••H3* •**••*•• 


• 


SET FLAG BIT 


• 


• CONTROL 


• 


IN MTFLG2 




• CHART AB 


• 


FOR TPLAB 


* 


• 


* 









#*H5****«« 

RETURN 

VIA 

LINK REG 



•MOVE CHARACTER 

• STRING TO 

• LABEL OUTPUT 

• AREA AT MTFID 



* 1 • 
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Chart DC. $$BATTNK - TLBL Statement Processor 
Refer to Chart 05. 



TLBL 

*****B1*» 
•FDKTV 



•****C1********** 

* set default * 
» values from * 
•File id through* 

* expiration « 

* DATE * 



PROCESS 

FILE NAME 

OPERAND 



****E1»******* 

LOAD 

MAXIMUM 

LENGTH MINUS 

1 OF FILE 10 



•PROCESS FILE ID» 
•OPERAND, CHECK • 
• DATE OPERAND • 



• A3 
THIS ENTRY IS FROM THE 
EXTENT PROCESSOR 
(CHART EH). IN THIS 
CASE, ONLY THE SERIAL 
NUMBER IS PROCESSED 
ANO THE RETURN 
LINKAGE IS TO CHART EH. 
SEE NOTE 1. 



• A4 
AFTER PROCESSING FILE SERIAL OPERAND, 
RETURN TO FTEND1, AND PRCCESS VCLLlYE 
SEQUENCE NUMBER, FILE SEQUENCE NUPBER, 
GENERATION NUMBER, AND VERSION NUMBER 
IN TURN. 



D2 •. 
. » DATE ». 

IS •. NO 
ABSOLUTE .»... 
. DATE .» 



CHECK 
DIGIT 
RANGE 



•**«*HI*« •****••• 
•STORE RETENTION* 
•PERIOD IN BYTES* 

• 56 AND 57 OF * 

• OUTPUT BLOCK • 



»*»»#F2 •**•***»* 

* INSERT THIS 

* YEAR INTO 

* OUTPUT BLOCK 



•****G2*****«*** 
•FETINSRO OC 

» CHECK DAY AND 

* INSERT INTO 

• OUTPUT BLOCK 



•***H2 *•*•**••• 

INSERT 

CREATION DATE 

INTO OUTPUT 

BLOCK 



•*•***•*** 



FTENO 

*****J1 
•FSCAN 

*-*—*-*—*—*—< 

* GET FILE 

• SERIAL 
« OPERAND 



••••** 



NOTE 1--THE ENTRY IS 
SHOWN HERE FOR CONVENIENCE. 
THE RCUTINE IS ACTUALLY 
IN SSBATTNO AND IS 
IDENTICAL TO THIS ONE. 



FETINSRT X 

*****D3*******»»» 
•FSCAN DC* 



.* DID •. 




BLANK *. 


YES 


FOLLOW LAST . 


*.. . . 


. OPERAND .* 




*• .* 






X 


• NO 


***** 




• DB * 




« D3* 


X 




*•»• 


* 


• * 


TFILL 



.* OMITTEO 
*. OPERAND 


.* 


•NO 




FETINSRO X 

*****F3****** 
•CHKRNG1 


DB* 


» CHECK 
» OECIMAL 
• DIGITS 


• 
* 



•••*E5«***« 

* FSCAN 



•F4**«***« 
FSCAN1 



DELIMITER 

IS A 

. BLANK . 



FETINSR1 

*****G3**»* ****** 
•DETERMINE ADOR • 
♦IN OUTPUT BLOCK* 

• AND LENGTH OF • 

• OUTPUT FIELD • 

• MINUS ONE • 



.» WILL *. 

.* OPERAND *. 

.FIT IN OUTPUT. 

«. FIELD .• 



FSCAN1 

**«**G5« 
•SCANR2 



*•»*• j 3 ********** 

• INSERT * 

• OPERANO IN • 

• OUTPUT BLOCK • 
•RIGHT JUSTIFIEO* 



•*J4****** 

NVSERR 

CHART AC 



« EQUAL 

SIGN ENDED 
». SCAN 



****J5********* 

SET CONDITICN 

CODE TC 

INDICATE IF 

OPERAND IS 

PRESENT 



•***K5«««««««* 

RETURN 
VIA LINK REG 
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Chart DD. $$BATTNK - Check, Convert , and Concatenate Subroutines 
Refer to Chart 05. 



»»»»A2»»*»* 
• CNUNCO 



•«*»A3*«««* 

• NUMCON 



•••••B3« 


*•••»•••• 


• SET 


UPPER • 


• LIMI1 


OF 9 • 


» FOR 


RANGE • 


• CHECK • 



.* FIRST • . 
* THREE 

CHARACTERS 
*. SYS 



» CHECK ALL 
•CHARACTERS FOR 
* VALIO LIMITS 



»»»»A4»» »••»»•* 
• CONCAT * 



•»*»B4*******«« 

CLEAR 

CONCATENATION 

BUFFERS WITH 

BLANKS 

1127 BYTES) 



SAVE FIRST 

PART OF 

STATEMENT 

*C5 



»»**#02*»«**»«**» 


•••••03«««*««**«* 


•**«*D4*»«« •••••• 


*SET UP POINTER • 


• PACK TO • 


•RDSTMT " AC» 


•AND LENGTH FOR • 


•PACKED DECIMAL » 


#—»—*—•-»—»-*—*-» 


» NUMERIC » 


• FORMAT ANO • 


• INPLT SECOND • 


* CONVERSION « 


• CONVERT TO • 


• PART OF • 


* TO BINARY » 


• BINARY • 


* STATEMENT »D5 • 



CNUNC01 

••••*E2* 

•NUMCON 



••*«E3** *••**•• 

RETURN TO 

ADDRESS IN 

LINK REGISTER 



»»F2»»»**«« 

SAVE UNIT 

ORDER IN 

LOCATION 

UNCLOR 



«»H1«»**»* 

NVSERR 

CHART AC 



.* ORDER • 
.GREATER THAN 
*. 255 .* 



*»»H2»»»»»»« 

COMPUTE 

CLASS FROM 

KEY 

• Jl 



• IS • 

UNIT IN LUB 
*. TABLE .* 



SET UNIT 
CLASS TO 

ONE 



»«*»»E4* »•••♦*•» 
» COMBINE THE 
•TWO PARTS INTO 

• A SINGLE 

• STATEMENT 

• «E5 



•»*»*F 4* **•*••** 

• RESET POINTER 

• ANO LIMIT FOR 

• NEXT ENTRY TO 

• SCANR 

• »F5 



*#»G4» »*»•»** 
RET TO ADDR 
IN LINK REG 



»«H4«*«»»« 

ERRRTN 

CHART AC 



»C5 
SAVE THE FIRST 70 BYTES 
CF THE I/O BUFFER, IN 
LOCATICN BUFFER1 BY 
ORING THE TWO FIELDS. 
THIS WILL MAP ALL 
LOWERCASE CHARACTERS TO 
UPPERCASE. 



THE SECCND PART CF THE 
STATEMENT IS NOW IN I/O 
BUFFER, AT LOCATION 
BUFFER. 



♦E5 
COMBINE THE TWC PARTS BY 
ORING THE CONTENTS CF ThE 
I/O BUFFER (STARTING AT 
BUFFER +15) WITH BUFFR2. 
BUFFR2 IS CONTIGUOUS WITH 
BUFFR1. 



• F5 



THE 



GET VALUES SAVED BY 
SCAN SUBROUTINE-- 

1. REMAINING BUFFER 
LENGTH. 

2. ADDRESS OF OPERAND 
SUBTRACT THE ACCRESS 
FIELD OF THE CCW FROM 
THE STARTING ADDRESS 
OF THE OPERAND. ADD 
BUFFR1 ACCRESS TO THE 
DIFFERENCE. THE RE- 
SULTANT NEW OPERAND 
ADDRESS IS IN PCINT1. 
ADD 56 TC THE RE- 
MAINING BUFFER FIELD. 
THE RESULTANT NEW 
BUFFER LENGTH IS IN 
PCINT2. RESTORE POINTl 
AND P0INT2 IN LOCATICN 
TMPAR1 WHERE IT IS 
REFERENCED BY THE SCAN 
SUBROUTINE. 



CLASS EQUALS 
4 MINUS KEY 
DIVIDED BY 16. 



**»»J2«*»*«»«*« 

GET 

CORRESPONDING 

NICL ENTRY 

IN WRKRG1 



•*«J3«««*«*«* 

RET TO ADDR 
IN LNK REG 



«J4 
•1A40D INVALID 
LOGICAL UNIT 
SPECIFICATION*. 



X 
* 1 
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Chart DE. $$BATTNK - Process File ID and Date Operands 
Refer to Chart 05. 



• # 
» i » 



*B1********* 
FDKTID 



ADDRESS 

OPERAND 

CHARACTER 



» ANY » 

MORE 
•.OPERANDS .* 



GET 

OPERAND 

START ADDR 



THIS 

CHARACTER 

. A QUOTE . 



D2 *. 
.» IS *. 

QUOTE 

IN COLUMN 

72 



LOAD SCAN 

LIMIT INTO 

POINT2 



CHAR A 
QUOTE 



*»*H1 ********** 

START SCAN * 

WITH FIRST * 

CHARACTER * 

AFTER QUOTE * 



*»»»#E2********* 

* SET SCAN 

* DELIMITER 

* TO INDICATE 
•END OF OPERAND 



* IS 

DELIMITER 
*. BLANK 



COL * 
72 IS 

.NON-BLANK.* 



OELIMITER 

IS A 

. COMMA . 



FORCE UPPER 

CASE BY 

OR'ING A 

X»40» 



C3 «. 
.* ANY *. 

* MORE *. YES 
CHARACTERS .*.... 



FDKTDAT X 

»«***B4*'»**»»»*«* 
•FSCAN DC* 

* GET * 

* DATE * 

* OPERAND • 



**«*E3****** 
NVSERR 
CHART AC 



NO .* THERE AN *. 

...•OPERAND WITHIN. 

•THE QUOTES.* 



DATE 


». 


YES 






OPERAND 










. OMITTED 


>* 


. 






*• .* 














X 






*NO 




• •*•• 










• DC • 










* Gl* 






• 




• • 






X 




RETURN TC 


LINKREG+4 






FCR OMITTED 


DATE 


04 *. 




OPERAND. 






.* * 










OPERAND 


*. 








LENGTH = 1 


.* 









E4 •. 
.» DATE *. 

.* OPERAND • 
.GREATER THAN 



RETENTION PERICO OR 
ABSOLUTE DATE. 
FORMAT OF ABSOLUTE 
OATE IS '/YYODC. 



F4 *. 
.* IS *. 

* THIRD *. 
CHARACTER A . 


YES 


FDKTC 

• 


AT 


2 

• F5***««"««« 

GET CAY * 
FIELD * 


*. SLASH .* 
*. *F5 .* 

***NO 

X 

G4****. 

.* IS *. 

* OPERAND *. 

GREATER THAN . 

*. 4 .* 


YES 
* .... X 


• 


LENGTH » 


YES . 
••..*. 


^. 


X 
G5* *•. 

DAY **. 

FIELD .» 
OMITTED .* 



FDKTDAT1 

* **«*|-| *********** 
*NUMCON DO 

* CONVERT 
•RETENTION PER- 

* IOD TO BINARY 



«»«H5««*«««*< 

POINT TO 

START OF 

ABSOLUTE 

DATE FIELD 



***»J2 ***•*•••• 

COMPUTE 

POINTER FOR 

NEXT SCAN AND 

STORE SCAN 

LIMIT 



» INSERT FILE 

* ID IN 

• OUTPUT BLOCK 
•LEFT JUSTIFIED 



2 • 

• **• 
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Chart DF. $$BATTNK - DLBL Statement Processor (Part 1 of 2) 
Refer to Chart 05. 



*A2 
FIRST FIVE 
CHARACTERS 
ARE IJSYS. 



****&!********* 

* * 

* OLBL * 

* * 
*************** 



*****B1 ********** 

* LOAD BASE * 

* REGISTER * 

* WITH FILE * 

* INFORMATION * 

* ADDRESS * 
************* 



*****Cl ********** 

* * 

* PUT ADDRESS * 

* OF LABEL AREA * 

* IN 'LBLSAA* * 

* * 
***************** 



*DE-H4 (RET 

PERIOD) 
DE-H5 (ABS. 

DATE) 
DE-C4 (OMIT 

DATE) 



01 *. 
* 

CONCAT 



***** El ********** 
♦CONCAT DD* 
*-*-*-*_*_*_*-*_* 

* READ * 

* CONTINUATION * 

* CARD * 
************* 



ADDRESS OF 
LOGICAL UNIT IN 
FILENAME (MTFLIN+5). 
LENGTH OF LOGICAL 
UNIT MINUS 1. 
ADDRESS OF FDKIJ2t 
•ERROR' RETURN FROM 
CNUNC01 ROUTINE. 



B2 *. 
.* FILE *. 
NO .* NAME *. 
,..*.IS FOR SYSTEM. 
*. FILE .* 
*. *A2 .* 
*. .* 
♦ YES 



*****C2********** 

* INITIALIZE * 

* REGISTERS * 

* FOR CNUNCOl * 

* SUBROUTINE * 

* *A4 * 
***************** 



*****D2********** 
♦CNUNCOl DD* 
*_*_*_*_*_*_*_*_* 

* VALIDATE AND * 

* CONVERT UNIT * 

* NO. TO BINARY * 
***************** 



DATE IS 
RETENTION 
. PERIOO . 



C3 *. 


*****C4********** 


.* *. 


♦STORE RETENTION* 


.* DATE IS *. NO 


* PERIOD IN * 


*. ABSOLUTE .*... 


* BYTES 76-77 * 


*. DATE .* 


* OF OUTPUT * 


*. .* 


* BLOCK * 


*. .* 


***************** 


*YES 






* **** 




* * 




.X.* 3 * 




............X. * * 




X **** 


X 


.*. 


*****D3********** 


D4 *. 


♦NUMCON DD* 


.* FILE *. 


*_*_*_*_*_*_*_*_* 


YES .* ID *. 


* CONVERT * 


....*. SPECIFIED .* 


* YEAR TO * 


*. .* 


* BINARY * 


*. .* 


***************** 


*. .* 



*****F1 ********** 
♦FDKTV DA* 
*_*_*_*_*_*_*_*_* 

* STATEMENT * 
♦INITIALIZATION * 

* * 
***************** 



*****G1 ********** 

* SET DEFAULT * 

* VALUES FOR * 
♦FILE ID THROUGH^ 

* SYS CODE * 

* *K1 * 
***************** 



*****H1 ********** 

* RESET CURRENT * 
♦EXTENT DEFAULT ♦ 

♦ TABLE TO ♦ 

♦ STANDARD * 

* * 
***************** 



***** j 1 ********** 

♦FDKTVNM DA* 
*_*_*_*_*_*_*_*_* 

* SET UP FILE * 

* NAME AND ♦ 

* KEY FIELDS * 
***************** 

I **** 



**** 

*K1 
FILE = BLANKS 
FILE SERIAL = BLANKS 
FORMAT ID = 1 
VOL. SEQ. = X'GOOl' 
CREATION DATE = 
EXPIRATION DATE = 
RETENTION PERIOD ■ X'0007« 
FILE TYPE CODE = S 
SYSCODE = DOS/360 VER. 3 



FDKIJ1 

*****P2********** 

* GET LOGICAL * 

* UNIT DEFAULT * 
*FROM 'UNCLOR', * 
♦SET IN CURRENT ♦ 

* EXTENT TABLE ♦ 
***************** 



FDKIJ2 

*****G2********** 

* RESTORE * 

* ADDRESS OF * 

* NVSERR TO * 

* LINKR4 FOR * 

* ERRORS * 
***************** 



*****H2********** 

* LOAD REGISTER * 

* WITH MAXIMUM * 

* LENGTH OF * 
*FILE ID FIELDt * 

* MINUS ONE * 
***************** 



*****j2********** 
♦FDKTID DE* 
*_*_*_*_*_*_*-*_* 

♦PROCESS FILE ID* 
♦OPERAND, CHECK ♦ 
♦ DATE OPERAND ♦ 
***************** 



*****£ 3** ******** 

♦ STORE YEAR ♦ 

♦ IN EXPIRATION ♦ 

♦ DATE OF ♦ 

♦ OUTPUT BLOCK ♦ 

♦ * 
***************** 



*****p 3********** 
♦NUMCON DD* 
*_*„.*_*_*_*_*_*_* 

♦ CONVERT ♦ 

♦ DAY TO ♦ 

♦ BINARY ♦ 
***************** 



*****E4********** 

♦ MOVE FILE ♦ 

♦ NAME INTO ♦ 

♦ FILE 10 AS * 

♦ DEFAULT VALUE * 

***************** 



NUMBER 

DAYS 
GT 366 



*****H3********** 

* STORE DAY * 

* IN EXPIRATION * 

* DATE OF * 

* OUTPUT BLOCK * 

* * 
***************** 



FDK2 X 

**P4******* 
* -SET MASK * 

* 'DSEOMSK' * 
*TO ALLOW EXTENT* 

* STATEMENT * 
♦PROCESSING ♦ 

*********** 



**Q4******* 

♦ SET FLAG ♦ 
•MTAFLG* 

TO ASSUME 
EXTENTS 

♦ OMITTED ♦ 
*********** 



FDDKCODE 

*****H4********** 

* SET FILE TYPE * 

* IN 'FILTYP* * 

* TO 'S' FOR * 

* SEQUENTIAL * 

* DISK * 
***************** 



*****J4********** 

♦FSCAN DC* 
*_*_*>*_*_*_*_*-* 

* GET * 

* fILE TYPE * 

* OPERAND * 
***************** 



***** 
*DG * 
* C2* 



****K3** ******* 

* NVSERR * 

* CHART AC * 

* * 
*************** 
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Chart DG. $$BATTNK - DLBL Statement Processor (Part 2 of 2) 
Refer to Chart 05. 



DLBOUT X 

*****B4********** 
♦FSCAN DC* 
*_*_*_*_*_*.,*_*_* 

* SCAN FOR LAST * 

* OPERAND * 

* * 
***************** 



OPERAND 

OMITTED 

OR SD 



**D2******* 
♦RESET FLAG * 

* 'MTRSVD' TO 

ZERO, SET 

* FILE TYPE 

* TO «D« * 
*********** 



**F2******* 

* SET MASK * 
♦'DSEQMSK' TO 

* INDICATE 
♦EXTENT REQ'D 

* FOR I.S. * 
*********** 



*****G2********** 

* SET FILE TYPE * 

* IN FILTYP TO * 

* C OR E FOR * 

* INDEX * 

* SEQUENTIAL * 
***************** 



.* OPERAND ■ 
. EITHER ISC 
*. OR ISE . 



**** 

* * 

* 1 * 



DATA *. NO 
SECURITY .*... 
. SWITCH .* 



**E4******* 

* * 
SET DATA 
SECURITY 

SWITCH 

* * 
*********** 



**P4******* 

* MOVE MASK * 
•DSEQMSK' 

INTO SWITCH 
'JBCSW5' 

* * 
*********** 



*****Q4********** 

* PUT FILE TYPE * 

* INTO OUTPUT * 

* BLOCK AND * 

* RESET DATA * 

* LENGTH TO 84 * 
***************** 



****H4********* 



****E5********* 

* * 

* NVSERR * 

* CHART AC * 
*************** 



****jl********* 

* * 

* NVSERR * 

* CHART AC * 
*************** 
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Chart DH. $$BATTNK - Output Label Data Subroutines 
Refer to Chart 05. 



****A1 ********* 

* * 

* LBLOUT * 

* * 
*************** 



LABEL 
BLOCK IN 
. BUFFER 



**C1******* 

* SET BLOCK * 
NOT PRESENT 

BIT IN 
JBCSW5 

* * 
*********** 



*****[)]_********** 

* PUT DATA * 

* LENGTH IN * 

* WRKRG1 FROM * 

* DTALGT * 

* * 
***************** 



El *. 

.♦LENGTH *. 

NO .* GREATER *. 

...♦.THAN PREVIOUS.* 

*. MAXIMUM .* 

*. *E2 .* 



*****B3********** 
♦LBLOUT DH* 
*_*_*_*_*_*_*_*_* 

* CALCULATE NEW * 
♦REMAINING TRACK* 

* CAPACITY * 
***************** 



*B4 
WHEN THE DIFFERENCE 
BETWEEN THE OLD 
RESIDUAL COUNT 
(REMAINING CAPACITY) 
AND THE CURRENT BYTE 
COUNT (SPACE NEEDED) 
IS A NEGATIVE VALUE, 
THERE IS NO SPACE 
AVAILABLE ON THE 
TRACKS. 



****C2******** 

* RETURN TO 

* ADDR IN 

* LINK REG 
************** 



BNPMSK 
OF THE 
FLAG BYTE 
FLGBYO. 



*E2 



SPACE *. YES 
AVAILABLE .*.... 

*B4 .* 



*****£) 3** ******** 

* GET CURRENT * 

* TRACK NO., * 

* CALC LAST * 

* TRACK NO. * 

* * 
***************** 



****B5******** 

SET UP 

SEEK ADDRESS 

IN LOCATION 

SHHADD 



*****£ 5** ******* 
♦ADD 256 TO THE 

* RECORD NUMBER 

* AND STORE IN 

* WRECNO 

* *F5 
**************** 



SET UP 
WRITE 
CCB 



MAXIMUM LENGTH 
IS RESET BY EACH 
ITERATION, WHENEVER 
A PREVIOUSLY SET 
MAXIMUM IS EXCEEDED. 



LAST 

TRACK 

FILLED 



♦ YES 



*****P1 ********** 

♦ RESET MAXIMUM * 

♦ LENGTH WITH * 

♦ CURRENT DATA * 

♦ LENGTH ♦ 

♦ *E2 * 
***************** 



*****p 3** ******** 

* ADD ONE TO * 

* TRACK NO. * 

* AND STORE * 

* IN WHHADD * 

* * 
***************** 



****P4********* 

♦ ERRRTN * 

♦ CHART AC ♦ 

♦ *G4 * 
*************** 



********* 



♦♦E5********* 
EXCPRG * 
CHART AC * 
* 
************* 



*F5 
A TWO BYTE FIELD IS 
PICKED UP, STARTING 
WITH WRECNO. ADDING 
256 TO THIS VALUE 
EFFECTIVELY INCREASES 
THE RECORD NUMBER 
BY 1. 



*****G1******** 

* ADJUST OATA 

* LENGTH BY 

* ADDING KEY 

* LENGTH 
* 
*************** 



*****G3*** 

* RESET RCD * 

* NUMBER TO * 

* ZERO IN * 

* WRECNO * 

* * 
***************** 



♦ G4 
•1L10D 
LABEL AREA 
EXHAUSTED'. 



***** H 1 ********** 

* SET UP WRITE * 

* AND VERIFY * 

* CCW WITH * 

* LENGTH VALUE * 

* * 
***************** 


****H2*^******* 

* * 

* LBL0UT1 ♦ 

* * 
*************** 


*****H3********** 

♦ RESET TRK * 

♦ CAPACITY ♦ 

♦ TO ♦ 

♦ MAXIMUM ♦ 

♦ * 
***************** 












I 










2311 


2314 












X- 


*J4 

1. DATA LENGTH + KEY LENGTH 
MULTIPLIED BY — 

2. PRODUCT DIVIDED BY— 

3. QUOTIENT ADDED TO— 


537 

512 

81 




X 
*****jl ********** 

* CALCULATE * 

* SPACE NEEDED * 

* ON THE LABEL * 

* TRACK * 

* *J4 * 
***************** 






LBL0UT1 X 

*****J3********** 

* CALCULATE ♦ 

* REMAINING ♦ 

* TRACK ♦ 

* CAPACITY ♦ 

* *K4 ♦ 
***************** 


2137 

2048 

146 



*****«!********** 

♦ GET THE * 

♦ REMAINING ♦ 

♦ CAPACITY OF * 

♦ THE TRACK * 

♦ FROM REMCAP ♦ 
***************** 



**** 

X 
****** 3********** 

* PUT * 

* REMAINING * 

* CAPACITY INTO * 

* LOCATION * 

* REMCAP * 
***************** 



*K4 
REMAINING CAPACITY EQUALS 
MAXIMUM BYTES PER TRACK 
(3625 FOR 2311, 7294 FOR 
2314) MINUS CURRENT BYTE 
COUNT ON NEW TRACK. REMCAP 
IS DECREASED BY THE DATA 
LENGTH NEEDED EACH TIME. 



**** 

* * 

* 1 * 



* 3 * 

* * 
**** 
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Chart DJ. $$BATTNL - DLAB Statement Processor 
Refer to Chart 06. 



* * 

* DLAB * 

* * 
*************** 



*A2 
DLAB MUST BE 
PRECEDED BY 
A VOL STATEMENT. 



***** 
*DL * 
* Bl* 



**** 

* * 

* 3 * 

* * 
**** 



*****C1 ********** 

* LOAD WRKRG4 * 
*WITH FILE INFO * 

* ADDRESS AND * 
*P0INT4 WITH THE* 
*ADR OF LBL AREA* 
***************** 



DELIMITER 

A 

. COMMA . 



****C2********* 

* ERRRTN * 

* CHART AC * 

* *D2 * 
*************** 



*BUILD COMPLETE * 
* CARD IMAGE IN * 
*BUFFR1, BUFFR2 * 
***************** 



*****F1 ********** 

*SCANR2 AD* 

*_*_*_*_*_*_*_*_* 

* GET THE FIRST * 

* OPERAND-51 * 

* CHARACTERS- * 
***************** 



Gl *. 
.♦OPERAND*. 
♦ENCLOSED IN*. NO 
APOSTROPHES .*... 



**E2********* 
NVSERR * 
CHART AC * 



* 1 
* 
**** 



*****H1 ********** 

* SAVE FILE ID * 

* IN DACTRL * 

* AND SET DAFMT * 
*TO 1 TO ENSURE * 

* FORMAT-1 * 
***************** 



****jl ********** 

RESET POINT1, * 

POINT2 AND * 

TMPAR1 FOR * 

NEXT SCAN * 

* 

**************** 



* GET NEXT * 

* OPERAND- VOL * 

* SEO NUMBER- * 
***************** 



♦DL-F4 
DM-K1 
DP-G1 
***** 



***#J2********* 
ERRRTN * 
CHART AC * 
*K2 * 
*************** 



*****0 3** ******** 

*NUMCON DD* 
*„*_*_ *_*_*_*_*_* 

* CONVERT VOL * 

* SEO NO. TO * 

* BINARY * 
***************** 



*****£ 3** ******** 

* SAVE VOLUME * 

* SEQ. NO. * 

* IN LABEL * 

* DAVLSO * 



*****B4 ********** 

* CLEAR * 

* RESERVED BYTE * 
*AND TYPE FIELD * 

* 'DARSYD' AND * 

* 'DAFTYP* * 
***************** 



***** 



*****C4** 
*SCANR2 AD* 
*_*_*_*_*_*_*_*_* 

* GET NEXT * 

* OPERAND- * 

* SYSTEM CODE- * 
***************** 



**0PERAND*. 
NO .*ENCLOSED IN*. 
X...*. APOSTROPHES . 



OPERAND 
IS SD OR 
. BLANK 



**C5******* 

* RESET * 
•MTRSVO' TO * 

ZERO, SET * 
FILE TYPE * 

* TO 'D' * 
*********** 



* 1 * 

* * 
**** 



*CHECK, CONVERT 
*ST0RE CREATION 
* DATE IN LABEL 



****q 3* ********* 

PUT AODR * 

OF EXPIRATION * 

DATA AREA * 

INTO P0INT4 * 



*****H 3** ******** 
*D0P34 DK* 
*_*_*_*_*_*_*_*_* 
*CHECK, CONVERT * 

* STORE EXPRATN * 

* DATE IN LABEL * 
***************** 



****j3********** 

RESET P0INT4 * 

TO STARTING * 

ADDRESS OF * 

LABEL AREA * 

* 

**************** 



*****£ 4** ******** 

* * 

* SAVE SYSTEM * 

* CODE IN * 

* 'DASYCD' * 

* * 
***************** 



*****P4 ********** 

* RESET POINT1, * 

* POINT2 AND * 

* TMPAR1 FOR * 

* NEXT SCAN * 

* * 
***************** 



**G4******* 
SET MASK * 
'DSEOMSK' 
FOR XTENT 
STATEMENT 
REQUIRED * 

*********** 



FDDKCODE X 

*****H4********* 

* SET FILE 

* TYPE TO 

* SEQUENTIAL 

* DISK 

**************** 



*****j4**** ****** 

♦SCANR2 AD* 
*_*-*-*_*_*_*_*_* 

* GET LAST * 

* OPERAND- * 

* OPTIONAL NSD- * 
***************** 



**E5******* 

* SET * 
*'DSEQMSK« TO 

* INDICATE 
♦EXTENT REO'D 

* FOR I.S. * 
*********** 



*****P5********** 

* SET FILE TYPE * 

* TO C OR E * 

* FOR INDEX * 

* SEQUENTIAL * 

* * 
***************** 



OPERAND 

IS ISC OR 

ISE 



**** 

* * 

* 1 ♦ 

* * 
**** 

DLBOUT 



K3 



♦ . 



IS 

.♦EXPIRATION 

DATE LT 

♦.CREATION . 

♦.DATE .* 

*. .* 

*N0 



**H5******* 

* MOVE MASK * 
•DSEQMSK 

INTO SWITCH 
•JBCSW5' 

* * 
*********** 



*****j5********** 

♦ PUT FILE TYPE * 

* INTO 'DAFTYP* * 

* AND SET DATA * 
♦LENGTH 'DTALGT'* 

♦ TO 84 * 
***************** 



****K5********* 

* CONTROL * 

* CHART AB ♦ 



**** 

* * 

♦ 2 * 
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Chart DK. $$BATTNL - Extract Operand Routine 
Refer to Chart 06. 



* * 

* D0P34 * 

* * 
*************** 



*****B2********** 
♦SCANR2 AD* 
*_*_*_*_*_*_*_*_* 

* GET THIRO * 

* AND FOURTH * 

* OPERANDS * 
***************** 



.* DELIMITER *. NO 
*. IS A .*... 

*. COMMA .* 



D2 *. 
.* *. 

LENGTH IS 



*****£ 2********** 

* SET LENGTH * 

* IN P0INT3 * 
♦FOR CONVERSION * 

* SUBROUTINE * 

* * 
***************** 



*****F2********** 
♦NUMCON DD* 
*-*-*-*-*-*_*-*_* 

* CONVERT YEARS * 

* TO BINARY * 

* * 
***************** 



*****G2********** 

* STORE * 

* CONVERTED * 

* YEAR VALUE * 

* IN 'OACRYR' * 

* * 
***************** 



*****H2********** 

* SET P0INT1 * 

* TO ADDRESS OF * 

* THE DAY FIELD * 

* AND POINT3 * 

* TO LENGTH * 
***************** 



*****j2********** 
♦NUMCON DO+ 
*_*-*_*_*_*_*_*_* 

♦ CONVERT DAY ♦ 

♦ TO BINARY ♦ 

♦ * 
***************** 



♦ 1 * 

♦ * 
**** 



**** 

* * 

* 1 * 

* * 
**** 



YES .♦ DAY ♦ 
......GREATER THAN 

*. 366 .♦ 



*****C4********** 

* STORE ♦ 

* CONVERTED ♦ 

* DAY - 2 BYTES ♦ 

* INTO 'DACRDY' ♦ 

* * 
***************** 



****04********* 

♦ RET TO ADDR * 

♦ IN LNK REG ♦ 

♦ * 
*************** 



****E3********* 

♦ NVSERR ♦ 

♦ CHART AC ♦ 

♦ * 
*************** 
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Chart DL. $$EATTNL - XTENT Statement Processor (Part 1 of 
Refer to Chart 06. 



3) 



****A1********* 

* * 

* XTENT * 

* * 
*************** 



**** 

* * 

* 2 * 

* * 

**** 



tu *. 
* * 




PREVIOUS 


*. NO . 


STATEMENT 


.*..X. 


DLAB OR 


* 


*. XTENT.* 




*. .* 


X 


*YES 


***** 




*DJ * 




* C2* 




* * 




* 
OTSER 



FILE 
DIRECT 
ACCESS 



*****q I ********** 

* INITIALIZE * 

* POINTERS TO * 

* FILE ADDRESS * 
♦AND LABEL AREA * 
♦ADDRESS +C2 ♦ 
***************** 



*****0l ********** 

♦ LOAD ADDRESS * 
♦OF THE CORRECT * 
♦PIB ENTRY INTO ♦ 

♦ WRKRG1 ♦ 

♦ IPI'3ADD+ KEY* ♦ 
***************** 



*****£ i ********** 

♦ CALCULATE ♦ 

♦ THE AMOUNT OF ♦ 

♦ MAIN STORAGE * 

♦ ALLOCATED IN ♦ 

♦ WRKRG2 ^E2 * 
***************** 



*****Fi ********** 

* CALCULATE * 

* THE FG UPPER * 

* LIMIT ADDRESS * 

* IN WRKRG1 * 

* *F2 * 
***************** 



SPACE 
AVAILABLE 
.WITHIN FG. 
*.AREA .* 



**** 

* * 

* 4 * 

* * 
**** 



♦C2 
WRKRG4 CONTAINS THE 
FILE INFORMATION 
ADDRESS WITHIN THE 
LABEL AREA. P0INT4 
CONTAINS THE ADDRESS 
OF THE LABEL AREA. 



*****H1 ********** 
*XTOP12 DP* 
*_*_*_*_*.*_*_*_* 

♦ CHECK AND * 
♦CONVERT EXTENT ♦ 

♦ TYPE FIELD * 
***************** 



*****jl ********** 

♦ STORE ♦ 

♦ CONVERTED * 
♦VALUE FOR TYPE ♦ 

♦ IN LOCATION ♦ 
•XTTYPE* 



******* 



********* 



YES .* TYPE 
...*. EQUALS 
*. 1 



TYPE 

EQUALS 

128 



YES 


* EXTENT 


• ..* 


TYPE GR-EATER 




♦. THAN 




♦ . 2 .♦ 


X 


♦ . .♦ 


**** 


*NO 


* * 




* 3 * 




* * 




**** 






X 




.*. 




D4 *. 




.♦ ♦. 




»* EXTENT 


* 


TYPE 




♦ . 



* 4 * 

* * 
**** 



*E2 

EXTRACT THE NUMBER 
OF 2K BLOCKS ALLOCATED 
FROM THE PIB AND 
MULTIPLY BY 2048 TO 
GET THE NUMBER OF 
BYTES ALLOCATED. 



SXTPOK 

*****£3********** 

♦XTOP12 DP^ 
*_*_*_*_*_*_*_*_* 

♦ GET EXTENT ♦ 

♦ SEQUENCE ♦ 

♦ FIELD ♦ 
***************** 



**** 

* * 

* 5 ♦ 

* * 
**** 



♦ F2 
EXTRACT THE ADDRESS 
OF THE PROGRAM ORIGIN 
FROM THE PIB. ADD 
NUMBER OF BYTES 
ALLOCATED TO THIS 
PROGRAM. 



****G2********* 

♦ ERRRTN * 

♦ CHART AC * 

♦ *H2 * 
*************** 



*****E4********** 

♦XTOP12 DP* 
*_*_*_*_*_*_*_*_* 

♦ GET EXTENT * 

♦ SEQUENCE ♦ 

♦ NUMBER ♦ 
***************** 



.♦ SEQUENCE ♦ 
. NO. GREATER 
♦. THAN .♦ 



*****D5********** 

♦XTOP12 DP* 
*_*_*_*_*_*_*_*_* 

♦ GET EXTENT ♦ 

♦ SEQUENCE ♦ 

♦ FIELD ♦ 
***************** 



**** 

* * 

* 5 * 

* * 
**** 

**** 

* * 

* 3 ♦ 

* * 
**** 



.♦ ASCENDING *. 
. SEQUENCE 
*. NUMBER .♦ 



♦ H2 
ML10D LABEL 
AREA EXHAUSTED* 



***** 
*DM ♦ 
* Bl* 
* * 
* 
XT0P3 



THE FIRST EXTENT MUST BE 
TYPE 4. AT THIS TIME, A 
SEQUENCE NUMBER GREATER 
THAN 1 IS OUT OF SEQUENCE 



1 
'♦YES 



FIRST 

EXTENT 

♦ J2 



***** 

*DJ ♦ 

* J2* 

* * 





...* 6 


* 




* 


* 




**** 


ISCKSO 


X 




*****H4********^ 


* 


SET UP FOR 


* 


* 


SEQUENCE 


* 


* 


NUMBER 


* 


* 


CHECK 


* 



***************** 



.* SEQUENCE ♦. 

. NUMBER IN . 

*. ASCENDING. ♦ 

*.0RDER.* 



*****G5********** 
♦XTOP12 DP^ 
*_*_*_*_*_*-*_*_* 

♦ GET EXTENT ♦ 

♦ SEQUENCE ♦ 

♦ NUMBER ♦ 
***************** 



H5 ♦. 
.♦ *. 
YES .♦ SEQUENCE ♦ 
...*. NO. GREATER 
♦. THAN 1 .♦ 
*. *J2 .* 
X ♦. 



♦ NO 



**** 

* * 

* 1 * 

* * 
**** 



♦ YES 

Ix... 

X 



* 5 ♦ 

* * 
**** 



* 6 * 

* * 
**** 
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Chart DM. $$BATTNL - XTENT Statement Processor (Part 2 of 3) 
Refer to Chart 06. 



**** 

* * 

* i * 



*****B1********** 



GET LOWER 

LIMIT OF 

EXTENT 



*****Cl ********** 

* PUT Bl, CELL * 
*N0., FIELD INTO* 

* LOCATION XTB1 * 

* OF THE LABEL * 

* AREA. * 



*****D1*** ******* 

* ADD 4 TO THE * 

* LABEL AREA * 

* POINTER, * 

* POINTS * 

* *D2 * 
***************** 



GET UPPER * 

LIMIT OF * 

EXTENT * 

************** 



*****F1********** 

* * 

* RESET LABEL * 

* AREA POINTER * 

* POINTS * 

* *D2 * 
***************** 



*****G1 ********** 

* PUT B2, CELL * 
♦NO., FIELD INTO* 

* LOCATION XTB2 * 

* OF THE LABEL * 

* AREA. * 
***************** 



B4 



*. 



LOWER 
.* HEAD *. YE 
♦.GREATER THAN .*.. 
*. UPPER .* 
♦.HEAD .* 
*. .* 
*N0 



ANY 
MORE 
•OPERANDS 



*D2 
THE BASE REGISTER, 
P0INT4, IS 
INCREMENTED BY A 
FACTOR OF FOUR WHEN 
THE UPPER LIMIT 
EXTENT FIELDS OF THE 
LABEL AREA DSECT 
ARE BEING PROCESSED. 
WHEN THE OPERATION 
IS COMPLETE, P0INT4 
IS RESTORED TO ITS 
ORIGINAL VALUE. 



XT0P5 X 

*****C3********** 
*SCANR3 AD* 

* GET SERIAL * 

* NUMBER * 

* FIELD * 



* 6 CHAR * 

ENCLOSED IN 
♦APOSTROPHES* 



*****E3** ******** 
♦SAVE THE SERIAL* 

* NUMBER IN * 
♦LOCATION XTSERL* 

* OF LABEL * 

* AREA * 
***************** 



*****P2******** 

* MOVE EXTENT 

* SERIAL INTO 

* 'DAFSER' AS 

* FILE SERIAL 

* NUMBER 
*********** • 



*1 


)c** 


* 


* 3 
X * 
.*. **** 


HI *. 
.* CELL *. 

NUMBERS *. NO 
ARE .*..X 
. EQUAL .* 





* UPPER * 
EXTENT 
EXCEEDS 

MXCCHH 



Kl 



LOWER *. 
.* LIMIT * 
♦.GREATER THAN 
*. UPPER .* 
*. LIMIT.* 
*. .* 
*NO 



*****G 3** ******** 

* RESET POINT1, * 

* POINT2, AND * 

* TMPAR1 FOR * 

* NEXT SCAN * 

* ♦ 
***************** 



_*,*_*_.*_ 



********* 



* DELIMITER * 

IS AN EQUAL 
*. SIGN .* 



***************** 



NO .* DELIMITER 
...*. A 

*. BLANK . 



***************** 



*****G5********** 

* STORE B2 * 

* IN LOCATION * 

* XTB2 OF * 

* LABEL AREA * 

***************** 



***** 
*DJ * 
* J2* MLSERR 



*****K3********** 
*CNUNCO DD* 
*_*_*_*_*_*_*_*_# 

♦CONVERT SYSXXX * 

♦ TO CLASS * 

♦ AND ORDER * 
***************** 



****K4********* 

* NVSERR * 

* CHART AC * 

* * 
*************** 



* 2 * 

* * 
**** 
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Chart DN. $$BATTNL - XTENT Statement Processor (Part 3 of 3) 
Refer to Chart 06. 



***** 

*DM * 
* G5* 



**** 

* * 

* 1 * 

* * 
**** 



* ? 
* 
**** 



.* TYPE *. NO 
*. SEQUENTIAL .*... 
*. DISK .* 



**C2******* 

* RESET * 
'MTAFLG' 
FLAG BYTE 

TO ZERO 

* * 
*********** 



*****D2********** 

* LOAD POINTS * 

* WITH ADDRESS * 

* OF PREVIOUS * 

* EXTENT * 

* * 
***************** 



PACKCG X 

**B4******* 
*TURN ON BIT* 

* IN 'MTAFLG* * 
* FOR LIOCS 

* LOOK-AHEAD * 
* * 

*********** 



XTUNIT 

*****£ 3********** 

* ADD 1 TO * 

* EXTENT COUNT * 

* IN LABEL * 

* SAVE AREA * 

* * 
***************** 



SYMBOLIC 
UNITS ARE 
. EOUAL . 
*. *H3 .* 



G2 *. 

.* BIN *. 

NUMBERS 

ARE EQUAL 

*H3 



**C4******* 

* SET FLAG * 

•MTRSVD' 

SAME AS 

•MTAFLG' 

*********** 



*****Q4** ******** 
*LBLOUT DH* 
*~*_*_*_*_*_*_*_* 

* OUTPUT * 

* PREVIOUS * 

* EXTENT * 
■ ■ ' ******** 



*****54********** 

* RESET DATA * 

* LENGTH * 

* 'DTALGT' * 

* TO 84 * 

* * 
***************** 



*****P4********** 

* REPLACE * 

* PREVIOUS * 

* EXTENT WITH * 

* NEW EXTENT * 

***.************** 



*. 



. 




*H3 








THE SUBFIELD 


X 




WITHIN THE DSECT 


.*. 




FOR THIS 


EXTENT 


H2 *. 




FIELD IS 


COMPARED 


.* VOL. *. 




TO THE IDENTICAL 


.* SERIAL *. 


YES 


SUBFIELD 


OF THE 


*. NOS. ARE .* 




PREVIOUS 


EXTENT 


*. EQUAL .* 




FIELD. 




*. *H3 .* 








*. .* 


X 






*NO 


** 


** 






* 


* 






* 2 


* 






* 


* 




..........X. 


**** 




NODCUX X 




**J2******* 








*TURN ON BIT* 








* IN 'MTAFLG' * 








* FOR NO EXTENT * 








* DEQUEUE * 








* * 








*********** 








X 
**** 








* * 








* 1 * 








* * 








**** 









NEWXTN 

*****G4********** 

* INCREASE * 

* P0INT4 TO * 

* NEXT EXTENT * 

* AND STORE * 

* IN 'LBLPTR' * 
***************** 



*****H4********** 

* ADD 20 TO * 

* THE DATA * 

* LENGTH IN * 

* 'DTALGT' * 

* * 
***************** 



**j4******* 
♦SET JBCSW5 * 

* FOR BLOCK 
PRESENT AND 

* EXTENT 

* PROCESSED * 
*********** 



****K4********* 

* CONTROL * 

* CHART AB * 

* * 
*************** 
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Chart DP. $$BATTNL - XTENT Processor Subroutines 
Refer to Chart 06. 



**A1***** 
XT0P12 



****A3********* 



GET EXTENT 

TYPE OR 

SEQUENCE NO. 



*****A4** ******** 

* SET SCAN * 

* POINTERS, * 

* POINT1 AND * 

* P0INT2 TO THE * 

* NEXT FIELD * 
***************** 



****B 3** ******** 


*****B4********* 


SCANR3 AD* 


*NUMCON DD 


_*_*_*_*_*_*_*_* 


*_*_*_*_*_*_*_*_ 


GET THE * 


* CONVERT C2 


EXTENT * 


* TO BINARY 


LIMITS * 


* 


**************** 


**************** 



*A5 
THIS SUBROUTINE AS 
ILLUSTRATED GETS THE 
LOWER LIMIT INFORMATION 
FROM THE EXTENT. 
HOWEVER, IT IS ALSO 
USED TO GET UPPER LIMIT 
INFORMATION. THE 
CORRECT LABEL OF THE 
LABEL AREA DSECT IS 
ADDRESSED FOR UPPER 
LIMIT VALUES BECAUSE 
OF A BASE REGISTER 
ADJUSTMENT IN THE 
CALLING ROUTINE. 
EXTENT INFORMATION 
IS IN THE FORM Bl- 
CELL NUMBER C1C1- 
CYLINDER 1 
C2C2C2-CYLINDER 2 
H1-HEAD1 
H2H2-HEAD2 



DELIMITER *. 
IS A .* 

. COMMA .* 



•*OPERAND*. 
.* LENGTH * 
.GREATER THAN 
*. .* 



.*OPERAND*. 
.* LENGTH * 
.GREATER THAN 
*. 3 .* 



DELIMITER 

IS A 

. COMMA . 



CONVERT * 

OPERAND TO * 

BINARY * 

**************** 



*****P1*** ******* 
*NU*!CON DD* 
*_*_*_*_*_*_*_*_* 

* CONVERT * 

* OPERAND TO * 

* BINARY * 
***************** 



SEQUENCE *. YE? 
NO. GREATER .*..> 
THAN .* 
*. 255 .* 



*****H1 ********** 
*STORF SEQUENCE * 

* NUMBER IN LOC * 

* XTSEQN IN * 

* LABEL AREA * 

* * 
***************** 



****J1********* 

* RET TO ADDR * 

* IN LNK REG * 

* * 
*************** 



****F2********* 

* NVSERR * 

* CHART AC * 

* * 
*************** 



EXTENT 

IS 

ZERO 



*****G 3** ******** 

* PUT THE CELL * 

* NUMBER FIELD * 

* INTO LOCATION * 

* SVXTB * 

* * 
***************** 



*****H3** ******** 

* SET SCAN * 
♦POINTERS, POINT1* 
*AND P0INT3 FOR * 

* THE NEXT * 

* OPERAND FIELD * 
***************** 



***** j 3** ******** 

*NUMCON DD* 
*_*_*_*_*_*_*_*_* 

* CONVERT CI * 

* TO BINARY * 

* * 
***************** 



****** 3** ******** 
*PUT LOWER LIMIT* 

* CYLINDER ONE * 

* INTO LOCATION * 

* XTLLC1 OF * 

* LABEL AREA * 
***************** 



C4 *. 

.* C2 *. 

.* FIELD * 

♦.GREATER THAN 

*. 199 .* 

*. .* 



*****04** ******* 

* PUT LOWER 
*LIMIT CYLINDER 

* TWO INTO LOC 

* XTLLC2 OF 

* LABEL AREA 



*****E4** ******** 

* SET SCAN * 

* POINTERS, * 

* POINT1 AND * 
*POINT2 TO NEXT * 

* OPERAND FIELD * 



****F4******** 

CLEAR XTLLH1 

AND LOAD IT 

WITH LOWER 

LIMIT HEAD 

ONE VALUE 

************** 



*****G4********** 

* SET SCAN * 

* POINTERS, * 

* POINT1 AND * 
*POINT2 TO NEXT * 

* OPERAND FIELD * 
***************** 



***************** 



*****j4********** 

* PUT LOWER * 

* LIMIT HEAD * 

* TWO VALUE * 

* INTO XTLLH2 * 

* OF LABEL AREA * 
***************** 



****K4** ******* 

* RET TO ADDR * 

* IN LNK REG * 

* * 
*************** 



**** 

* * 

* 1 * 
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Chart EA. $$BATTNM - EXEC Statement Processor 
Refer to Chart 06. 



*«A1**«« 
EXEC 



GET THE FIRST 

OPERAND, 
PROGRAM NAME 



**•* 














*EE * 


» 1 • 






# B5# 










«*** 








X 










PNPERR 


B3 *. 






X 


•PROGRAM* 






*»»#B4»***»***# 


NAME IN 




NO . 


* ERRRTN 


DIRECTORY 






* CHART AC 


«J2 






* «B5 


*. • • 









•1S10D 

STATEMENT OUT 
CF SECLENCE'. 



••OPERAND*. 
.* LENGTH *. NO 
•GREATER THAN .«... 



El *. 

.*OPERAND». 

LENGTH 

LESS THAN 



CLEAR SAVE 

AREA 

TMPAR1 

TO BLANKS 



* EXEC * 

STATEMENT 
*IN SEQUENCE* 



LABEL 
BLOCK IN 
. CORE 
*. «E5 . 



#*C4****** 

ERRRTN 

CHART AC 



X 

• *** 
*EB 



»E5 
THE LAST SEGMENT CF 
LABEL INFORMATION 
HAS NCT BEEN 
TRANSFERRED TO THE 
LABEL CYLINOER CF 
SYSRES IF THIS 
BIT SWITCH CF 
JBCSfc5 EQUALS ZERC. 



**F2«*»'**» 

NVSERR 

CHART AC 



****G1»******* 

PUT PROGRAM 

NAME INTO 

SAVE AREA 

JUST CLEARED 



»**H1*«»*«** 

SET AN ODD 

VALUE IN 

SAVE AREA 

FWRKFL 



*****J1*******#*» 
•PUT THE ADOR OF* 

* PROGRAM NAME * 
•INTO REG 1. SET* 

* REG WITH • 
•ADDR OF FWRKFL • 



****K1**»****** 

SVC 23 

GET LOAD ADDR 

FOR PROGRAM 

SPECIFIED 

*J2 



*J2 
THE AREA ADDRESSED BY 

REGISTER IS SET WITH AN ODD VALUE. 
IF A PROGRAM NAME MATCHING THE 
PROGRAM NAME SPECIFIED IN REGISTER 
1 IS FOUND DURING THE CORE IMAGE 
LIBRARY DIRECTORY SEARCH, PART OF 
THE SVC 23, THE AREA ADDRESSEO BY 
REGISTER CONTAINS THE LOAD 
ADDRESS BOUNDARY ALIGNED. 
(AN EVEN VALUE) 
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Chart EB. $$BATTNM - Output Last Block of Label Data 
Refer to Chart 06, 



BL *. 

.* FILE ». 
* TYPE IS 

SEQUENTIAL 
*. DISK 



* CALCULATE NEW 

* REMAINING 
♦TRACK CAPACITY 



CALCULATE 
REMAINING 
CAPACITY 



*S 



Cl«»»*«*« 
_^T BITS IN» 
MTRSVD AND 
MTAFLG FOR 

LAST SD 
ENTRY * 



*C2 
FROM THIS POINT ON, 
THIS ROUTINE IS 
IOENTICAL TO THE 
LBLOUT SUBROUTINE 
IN $$8ATTNK. SEE 
CHART DG FOR MORE 
DETAILED INFORMATION. 



IN 



•C4******* 

SAVE 

REMAINING 

CAPACITY 

" 'REMCAP* 



01 *. 
.* MAX *. 

.» LENGTH * 

.GREATER THAN 

♦.DATA LNG .♦ 

♦. ^C2 .♦ 

'♦YES 



♦••♦#E1*»***#*# 

♦ RESET 

♦ MAXIMUM 

♦ LENGTH WITH 

♦ DATA LENGTH 




»**F !♦**♦♦♦»* 

ADO KEY 

LENGTH TO 

DATA LENGTH 

IN WRKRG1 



»**#G1^^^^^^^^- 

SET UP WRITE 

AND VERIFY 

CCWS WITH 

LENGTH 

INFORMATION 



*#»*»H1 ♦♦♦♦♦♦♦♦♦♦ 

♦ CALCULATE ♦ 

♦ SPACE NEEDED ♦ 

♦ ON THE ♦ 

♦ TRACK » 



LAXERR 

♦ 


X 

ERRRTN 

CHART AC 

•G2 


G2 

•1L10D LABEL 

AREA EXHAUSTED'. 



GET CURRENT 
TRACK NUMBER 
AND CALCULATE 

LAST TRACK 
NUMBER 



LAST 
TRACK 
FILLED 



ADD 1 TO 

TRACK NUMBER 

AND STORE 

IN WHHAOD 



SET UP SEEK 

ADORESS IN 

SHHADD 



ADD 256 TO 
THE WRITE 
RECORD 
NUMBER 



SET UP 

WRITE 

(SYSRES) 

CCB 



RESET RECORD 
NUMBER 
TO ZERO 



RESET TRACK 

CAPACITY 
TO MAXIMUM 



****J1 ♦*»••*♦•• 

GET REMAINING 

TRACK 

CAPACITY 

FROM 'REMCAP' 
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Chart EC. $$BATTNM - Move Last Block Routine 
Refer to Chart 06, 



♦EA-D3 
EB-G4 



NOLBPR X 

*##**B1******** 
* MOVE THE 
» PROGRAM NAME 



*PUT ADDRESS OF 

* LABEL 

* INFORMATION 
» INTO WRKRG4 



»»*««B4********** 

• CALCULATE * 

• LOAD ADDRESS * 
» FOR * 
•SELF-RELOCATING* 

• PROGRAM *B5 * 



*B5 
LOAD ACDRESS EQUALS 
ADDRESS OF THE LABEL 
STORAGE AREA PLUS 
THE LENGTH OF THE 
LABEL AREA. 



»#»*#C1********** 

* MOVE THE » 
•STORAGE PROTECT* 

* KEY INTO THE » 

• PSW SAVE • 

• AREA • 



SET THE 

REGISTER SAVE 

AREA TO 

ZERO 



» •*••£! ********* 

* PUT THE ADDR 
•OF THE CORRECT 

* FG PIB INTO 
« WRKRG1 



»*F1»***»*« 

• SET PIB ♦ 
ASSIGN FLAG 
TO INHIBIT 

SYSRES 

• WRITE • 



•••••C3 *••••**••• 




C4 *. 




• PUT THE ♦ 




.* FG *. 




« LENGTH OF • 


YES . 


•IS A SELF- ». 




•THE LABEL AREA • 


• . •• • 


RELOCATING .* 




• INTO WRKRG2 • 




*. PROGRAM .» 




* * 




*• •* 




***«*•**••****«•• 




*»NO 


*D5 
THE LOAD ADDRESS WAS 


X 






EXTRACTED FROM THE 






X 


CORE IfAGE LIBRARY 


D3 •. 




»*• 04* ********* 


DIRECTCRY PREVIOUSLY 


.« WAS ». 




SET LOAD * 




.* LARGER *. 




ADDRESS IN * 




•AREA SPECIFIED.* 


* 


REGISTER » 




•.IN LBLTYP.* 


* 


*D5 * 




*. •* 


* 


**••«•••••••*•* 





**»E3******** 

REPLACE 

LENGTH IN 

WRKRG1 WITH 

VALUE FROM 

LBLTYP 




«#**»F3********«* 
•SAVE LABEL AREA* 

* LENGTH FOR * 

* LIOCS, ALIGN * 

* TO DOUBLEWORD * 

* BOUDARY * 



•*fr«E4****»««* 

PUT THE ADDR 

OF THE LABEL 

AREA MINUS 1 

IN POINT1 

• E5 



•*F4****** 
RELOCATE 
THE LAST 

TWO 
ROUTINES 

*F5 



THIS IS AN INITIALIZATICN 
STEP FCR A PAIN STORAGE 
CLEAR ROUTINE THAT 
FOLLOWS. 



*F5 
THE LAST TWC ROUTINES OF 
$$BATTNN ARE MOVED OUT 
OF THE FOREGROUND AREA 
INTO THE LOGICAL 
TRANSIENT AREA TC 
PROVIDE SPACE FOR THE 
FOREGROUND PROGRAM 
TO BE EXECUTED. 



#»»##61********** 

* CALCULATE * 

* THE AMOUNT * 
•OF MAIN STORAGE* 

* ALLOCATED * 
» #G2 * 



#»*»H1********* 

CALCULATE 

THE HIGH 

MAIN STORAGE 

ADDR FOR THIS 

PROGRAM »H2 



SAVE HIGH 

MAIN STORAGE 

ADDRESS IN 

RG2SVA 



*G2 
MAIN STORAGE ALLOCATED 
EQUALS THE NUMBER OF 2K 
BLOCKS SPECIFIED IN THE 
PIB MULTIPLIED BY 2048 
TO CONVERT BLOCKS TC BYTES. 



HIGH MAIN STORAGE ADDRESS 
EQUALS PROGRAM ORIGIN 
ADDRESS PLUS THE NUMBER 
OF BYTES MINUS ONE. 



PROVIDES SPACE FOR 
FLOATING POINT 
REGISTERS IN FG SAVE 
AREA. 



**«»G3*««««*** 

PUT THE 

ADDRESS OF 

THE LABEL 

STORAGE AREA 

IN P0INT2 



ADD 32 TO 

LABEL STORAGE 

AREA ACCRESS 

*J2 
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Chart ED. $$BATTNM - Move Subroutine and Initialize for FG Program Load Routine 
Refer to Chart 06. 



MOVRTN 



MVCLRT 

•«*»*B1» 
♦MOVRTN 



* MOVE ZEROS * 
•INTO THE LABEL • 

* STORAGE AREA » 



• ••«B5 **♦♦♦**'*•* 

PUT THE VALUE * 

255 INTC * 

WRKRG3 * 

FCR EXECUTE » 

INSTRUCTION « 



*C1* 



SET UP ♦ 

* REGISTERS FOR * 

* MAIN STORAGE * 
♦CLEAR OPERATION* 

* *C2 » 



CLEAR 

REMAINING 

MAIN STORAGE 



LOAD REGISTER 

1 WITH THE 

VALUE IN THE 

BASE REGISTER 

*D2 



##*»«F1*****»***» 

* SAVE REGISTER * 

* AND 1 * 

* VALUES IN THE * 

* REGISTER SAVE • 
♦AREA ♦FZ^ 



STORE THE 
ADDRESS OF 

THE SVC 4 

IN THE PSW 

♦ H2 



•FROM' AND 'TO' ADDRESSES, 
LENGTH TO BE CLEARED, AND 
FIRST BYTE TO BE CLEARED. 



♦ D2 
REGISTER ONE CONTAINS 
THE ADDRESS OF THE NAME 
OF THE FOREGROUND PRO- 
GRAM TO BE LOADED. 
REGISTER CONTAINS THE 
LOAD ADDRESS AS DETER- 
MINED BY THE LINKAGE 
EDITOR PROGRAM OR AS 
ESTABLISHED FOR A 
SELF-RELOCATING PROGRAM. 
BOTH REGISTER VALUES ARE 
STORED IN THE FG PROGRAM 
SAVE AREA. 



SUBTRACT 

256 FRCM 

LENGTH 



»D3 
REMAINING LENGTH IS 
CALCULATED BY AODING 
THE CONTENTS OF WRKRG3, 
255, TO THE NEGATIVE 
VALUE IN WRKRG2. 



GET 

REMAINING 
LENGTH 



♦ F2 

THE REGISTER SAVE AREA 
CAN BE CONSIDERED AS 
BEING IN TWO PARTS. 
PART 1 CONTAINS REGS 9-0. 
PART 2 CONTAINS REGS 1-8. 
THE SAVE OPERATION PUTS 
REG VALUES IN THE CORRECT 
SAVE AREA. 



»*»F4*»»**»« 

MOVE ZEROS 

INTO THE 

REMAINING 

BYTES 




POSSIBLE 
PARTIAL 
. BLOCK 



MOVE 
ZEROS INTO 
256 BYTES 



F5***««*" 

♦ ADC 256 

♦ TC ADDRESSES 

♦ IN P0INT1 
♦AND P0INT2 »G 



PCINT1 CONTAINS THE MOVE 
FROM ACDRESS. PCINT2 
CONTAINS THE MCVE TC 
ADDRESS. 



»***H1^*^*^***^ 
♦ SVC 11 ♦ 
♦RELEASE CONTROL* 



♦ H2 
THE PSW IN THE FG SAVE AREA IS ASSEMBLED WITH THE SYSTEM MASK, KEY, 
AMWP, AND INTERRUPTION CODE FIELDS CONTAINING VALUES. THIS LOGICAL 
TRANSIENT PUTS THE ADDRESS OF A SVC 4 INTO THE INSTRUCTION ADDRESS 
FIELD. WHEN A SVC 11 IS ISSUED THE LOGICAL TRANSIENT RELEASES ALL 
CONTROL. THE FOREGROUND PIB IS ATTACHED, INDICATING AVAILABILITY 
FOR TASK SELECTION. WHEN A FOREGROUND TASK IS SELECTED, THE PSW 
IN THE FOREGROUND SAVE AREA BECOMES THE CURRENT PSW. THE SEQUENCE 
OF EVENTS THAT FOLLOWS IS 

1. EXECUTE THE SVC 4 TO LOAO THE FOREGROUND PROGRAM, NAMEO IN 
REGISTER li INTO THE FOREGROUND AREA, STARTING AT THE ADDRESS 
SPECIFIED IN REGISTER 0. 

2. EXECUTE A BRANCH TO THE FOREGROUND ENTRY ADDRESS AS SUPPLIED 
IN REGISTER ONE BY THE SVC 4. 

3. EXECUTE THE FOREGROUND PROGRAM. 
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Chart EE. $$BATTNM - UCS Statement Processor 
Refer to Chart 06. 



•RELOCATE CCW'S 
•AND SET -NOPSW- 
• TO NOP 



»»«»#A2 «*****«»♦» 

* COMPUTE LUB * 

* TABLE • 

• DISPLACEMENT » 
•TO DESIRED UNIT* 

• WITHIN CLASS * 



•GET LUB AND PUB» 
• ADDRESSES AND » 
» CHK ASSGN « 



• A4 

L0DCCW2-SET TO NONFGLD CPCODE 

-HEX FB-. 
L00CCW2+4-SET CHAIN FLAG TC 
CHAIN WRITE CCW 
-HEX 60-. 
LODCCW3-SET ALLOW DATA 
CHAIN OPCODE 
-HEX 7B- 



«.«»A5*»**««««« 
SVC 23 - LCAC 
THE UCS PHASE 
HEADER INTO 

BUFFER. 
-LCDNAM+8- 



POINT TO 1ST 

OPERAND 

-SYSXXX- 



COMMA 
». END THE 
••SCAN .• 



VALIO 

DEVICE 

TYPE 

*. «C4 . 



MOVE CLASS 
AND ORDER 

TO CCB 
-WRKCCB- 



POINT TO 2ND 

OPERAND 
-PHASE NAME- 



THE SUBROUTINE CNUNCO RETURNS 
THE UNIT CLASS IN THE LOCATION 
UNCLOR, BYTE 0. 

EQUALS SYSTEM 

1 EQUALS BG 

2 EQUALS FG1 

3 EQUALS FG2 

UNCLOR, BYTE 1, CONTAINS 

THE UNIT ORCER -PUB POINTER-. 



DEVICE MUST BE A 1403 
WITH UCS FEATURES. 
-DEVICE TYPE CODE HEX 42- 



»C4* 



SVC4 

LOAD THE UCS 

PHASE FROM 

CI LIB 

• F3 



EXECUTE I/O 

AS SPECIFIED 

IN WRKCCB 



»«F4**»««« 

CONTROL 

CHART AB 



MODIFY UCS 

LCAC CCWS 

• A4 



DID BLANK 
END LAST 
. SCAN 



F5 *. 
.• CIC • 

BLANK 
GR COMMA 

END 
•.SCAN .« 

""•YES 



• COMPUTE DISP. » 
...•INTO FICL TABLE* 

• Tu GET LUB • 

• INDEX • 



• GET SYSTEM • 
•LUB INDEX FROM «X. 
•SECOND PART OF «, 

• PUB TABLE • 



♦ LOAD LUB » 
•POINTER FOR 1ST» 
» BG PROG UNIT • 

* IN WRKRG1 • 



G2 «. 
-• DID • 

A BLANK 
OR COMMA 

END 
•.SCAN .* 

**YES 



• OPERAND *, 

1-9 CHAR IN 
•. LENGTH .» 



««**»J2**«* ••••*• 
•SET PHASE NAME • 

• SAVE AREA AND » 

• BUFFER TO • 
•BLANKS SAVE PHS* 
•NAME IN LODNAM * 



SET 3RD BYTE 

OP BUFFER, 

LODNAM+10, TO 

HEX FF. 



»»G4»»»«»* 

NVSERR 

CHART AC 



LENGTH • 
EQUALS 
.6 CHARS. •• 



* LENGTH 

EQUALS 

•.4 CHARS. 



LENGTH 

EQUALS 

5 CHARS. 



♦»K3«««***» 
REMOVE CHAIN* 

• BIT FROM 
L0DCCW2 TO 

* PR0HI8IT 

* WRITE * 



♦»J5«««««*» 
• MODIFY • 

• LCDCCW2 TC 
FCLD -OPCOCE 

• EQUAL 

« HEX F3- • 



»»K4»»***«* 

♦ MODIFY • 
» L0DCCW3 TO 

INHIBIT DATA 
* CHECKS. 

* -HEX 73- • 
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Chart EF. $$BATTNM - UCS Subroutines 
Refer to Chart 06. 



CHKASG 



Bl «. 
.• FIRST *. 

♦ THREE 

CHARACTERS 
*. SYS 



02 «. 

,X«I SYSLST 



•♦»*#B4******** 




• CALCULATE 




« LUB AODRESS 




• FOR THIS UNIT 




• IN WRKRG3 


• 


• *B5 


* 



CALCULATE 

PUB ADDRESS 

FOR THIS UNIT 

IN WRKRG4 

*D5 



• B5 
LUB TABLE 
ADDRESS PLUS 
DISPLACEMENT 
FOR THIS UNIT. 



•C5 
IN BYTE OF THE 
LUB, X»FE'=IGNCRE 
AND X'FF'=UNASSIGNED. 
IN EITHER CASE, THE 
CONDITICN CODE IS 
SET TO 1. 



• 05 
PUB POINTER X 8 
EQUALS DISPLACEMENT. 
PUB TABLE ADDRESS 
PLUS DISPLACEMENT 
EQUALS PUB ADDRESS 
FOR THIS UNIT. 



•SET UP POINTER 
•AND LENGTH FOR 
» CONVERSION 
• TO BINARY 




•UNCLOR* + 1 



RETURN TO 

AODRESS IN 

LINK REGISTER 



•NUMCON 


DD* 




-»-# 


• CONVERT 


« 


• XXX TO 




* BINARY 


* 



•** »F2* »•**»*«* 

SET UNIT 

CLASS TO '0« 

FOR SYSTEM 

CLASS 



• IS ». NO 
UNIT IN LUB .«... 
*. TABLE .• 



••••••••« 



INSERT 
UNIT ORDER 
IN 'UNCLOR' 



•*»»*HL ***•*•* 

• CALCULATE 

• CLASS 

• FROM KEY 



•*«»»G3 **•*••**• 

* SET UNIT 

♦ CLASS TO «1' 
•FOR PROGRAMMER 

• CLASS 



RETURN TO 

ADDRESS IN 

LINK REGISTER 



**H4»«»««« 

ERRRTN 

CHART AC 

*J4 



****J1 «•*•*•••• 

GET 

CORRESPONDING 

NICL ENTRY 

IN WRKRG1 



*J2 
CLASS EQUALS 
4 MINUS KEY 
DIVIDED BY 16. 



«J4 
•IAAOD INVALID 
LOGICAL UNIT 
SPECIFICATION* 
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Chart EG- $$BATTNN - TIMER Statement Processor 
Refer to Chart 06. 



«*A1**»»»* 
$$8ATTNN 



»A2««»«* 
TIMER 



*«««A5««»»* 
• TIMLNK 



#««**B1»«****«»»« 

* PUT THE AODR • 
♦OF THE INTERVAL* 

* TIMER OPTION » 

* TABLE INTO * 
« WRKRG4 * 



NVSERR 
CHART AC 



»««««B5«*»«*«*»** 

* SET REGISTER « 
•ZERO TC CISABLE* 
« INTERRUPTS ON « 

* SEIZE * 
« OPERATION * 



» 2 *... 

CHKOWN .*. 



INTERVAL 

TIMER 

.SUPPORTED. 



SET OPERAND 

OF TIMER 
STATEMENTS 



.♦ PROGRAM ». YES 
*. ALREADY HAS .*.... 
♦. TIMER .* 



ERRRTN 

CHART AC 

»E2 



SVC 22 

SEIZE THE 

SYSTEM 



« PUT THE KEY 
«CF THE PROGRAM 
« THAT NOW HAS 

* IT SUPPORT 

* INTO ITKEY 



»E2 
• 1C60D TIMER 
NOT AVAILABLE* 



PUT CURRENT 
KEY VALUE 
IN P0INT1 



*«««E5«***«««» 

CALCULATE 

ADDRESS OF 

NEW ENTRY 

IN THE IT 

OPTION TABLE 



PUT BG 

KEY INTO 

P0INT4 



PUT Fl 

KEY INTO 

P0INT4 



* ATTENTION 

ROUTINE IN 

». CONTROL . 



PUT THE 

DISPLACEMENT 

VALUE FOR THE 

ATTENTION PIB 

IN P0INT1 



ZERO REGISTER 

AND SET 

THE MAXIMUM 

TIME INTERVAL 

IN REGISTER 1 



««*»H4*»****** 

PUT KEY OF 

PROGRAM 

SPECIFIED BY 

THE OPERAND 

INTO P0INT1 



» GIVE TIMER 
« CONTROL TO 
•SPECIFIED PROG 



* STORE IT IN 

* THE 
*CGWUMCATICNS 

* REGION 



«««»*G5«**«««*«« 

* SET REGISTER 
«ZERC TC ENABLE 
« INTERRUPTS 

* CN RELEASE 



SVC 22 
RELEASE 

THE 
SYSTEM 



RET TC ACDR 
IN LNK REG 



PUT F2 

KEY INTO 

P0INT4 



SVC 10 
SET TIMER 
INTERVAL 



#«K4»****» 

CONTROL 

CHART AB 
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Chart EH. $$BATTNO - EXTENT Statement Processor 
Refer to Chart 06. 



(Part 1 of 3) 



** A 1 »**»»♦ » 
EXTNT 



LOAD ADDRESS 

OF FILE 

INFORMATION 

WITHIN LABEL 

AREA 



CI *. 

.•EXTENT *. 
* STATEMENT *. NO 
IN SEQUENCE .»... 



LOAD ADDRESS 

OF LABEL 

AREA 



»*»»#E1»**»»»**» 
» LOAD ADDRESS 
» OF CORRECT 
* PIB ENTRY 
•(PIBADD + KEY) 



»**»B2 *«»*••*» 

SET DEFAULT 

VALUES IN 

EXTENT 

STORAGE AREA 

»B5 



»*»»»C2»* »*»••••* 


•FSCANl 


fcL» 






» GET SYSXXX 


• 


» OPERAND 




* 


* 


R 


< 








D2 «. 








.* OMITTED 


*. 


*. OPERAND 


. * 
















»NO 




FESYSX2 


X 




**»»»E2* ***** 


r««* 


•CNUNCO 




DD» 



FEVSER 

«#**«B3 
•FSCAN 



GET VOL 

SERIAL 

OPERAND 



FETYPE X 

•**#*B4» »***•*• 

* SET DEFAULT 

* VALUE FOR 

* EXTENT TYPE 

* TO •!• 



♦ B5 
SERIAL NO. = 
TYPE » 1 
SEQUENCE = 1 
LOWER LIMIT = OOOO 

UPPER LIMIT 

SYMBOLIC UNIT 
OLD CELL = 
NEW CELL = 



0000 



CONVERT 
XXX TO 
OPERAND 



AMOUNT OF 

MAIN STORAGE 

ALLOCATED 

*K2 



»#»**G1»*»*»*»»» 

* CALCULATE 
♦THE FOREGROUND 

* UPPER LIMIT 

* ADDRESS 
« »K3 



HI ». 

.* SPACE ». 
AVAILABLE 
WITHIN FG 

. AREA 



* IS 

THIS FIRST 
». EXTENT . 



G2 *. 
.• DID «. 

.« FIRST *. NO 
•EXTENT SPECIFY. «..X 
*. UNIT .* 



FEVSER2 

•FET1NSR1 DC 

»—»-#—«-•—»—*—»- 
» PROCESS 

• SERIAL NUMBER 

• OPERAND 



• IS 

THIS FIRST 
*. EXTENT . 



FEVSER3 .♦. 

F3 *. 

.» DID •• 

YES .• FIRST *. 

....•EXTENT SPEC VOL» 

». SERIAL .* 

*. NO. .* 



GET EXTENT 

TYPE 

OPERAND 



OPERAND ». NO 
LENGTH IN .*... 
GT .» 



»*F5««««««« 

STORE 

TYPE 

IN CUTPUT 

BLOCK 



•NO 



FEVSER4 X 

••••*G3«*«»*««*« 

* SET VOL 
•SERIAL DEFAULT 

* VALUE FOR 

* NEXT EXTENT 



FESYSX3 

•**«*H2***»****** 
•MOVE UNIT CLASS* 

• AND ORDER TO « 

• OUTPUT BLOCK • 
•AND NEXT EXTENT* 

• DEFAULT VALUE • 



* IS 

THIS FIRST 
». EXTENT . 



• NO 

!x.. 



MOVE VOL 

SERIAL NUMBER 

TO OUTPUT 

BLOCK 



*•«*•••• 



♦«»#J1»«***»**« 


««** 




£RRRTN 






* 


CHART AC 


♦ 




* 


•Kl 


* 




Kl 






• K2 


•1L100 


LABEL 




EXTRACT THE 


AREA EXHAUSTED*. 




NUMBER OF 2K 








BLOCKS 








ALLOCATED FROM 








THE PIB AND 








MULTIPLY BY 








2048 TO GET 








NUMBER OF BYTES 








ALLOCATED. 



♦K3 
EXTRACT THE 
ADDRESS OF 
THE PROGRAM 
ORIGIN FROM 
THE PIB. ADO 
NUMBER OF BYTES 
ALLOCATED TO 
THIS PROGRAM. 
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Chart EJ. $$BATTNO - EXTENT Statement Processor (Part 2 of 3) 
Refer to Chart 06. 



FILE 

TYPE IS 

SO 



*B4 
INSTRUCTION 
•FESPLITV, 
WHICH ALSO 
HAS LABEL 
•FESPLIT3', 
ON CHART EK. 



*B5 
THIS CONDITION CODE 
WAS SET IN THE FETKTK 
SUBROUTINE JUST BEFCRE 
RETURNING TC THIS 
POINT LINK REG. + 4) 
WHICH IS THE RETURN 
POINT F OPERAND IS 
NOT OMITTEC. 



TYPE 

EQUALS 

1 



3 * 



**«*E1 ******** 

MOVE 128 

INTO OUTPUT 

BLOCK AT 

XTTYPE *K1 



FETYPE1 

*****P1**« 
♦FESEQ 



* PROCESS * 
•EXTENT SEQUENCE* 

* OPERAND * 



E2 *. 

.* FILE * 

TYPE 

IS I.S. 

.EXPANDED 
*• . * 

*'*N0 



GET EXTENT 

SEQUENCE 

NUMBER 



SEQUENCE 

NUMBER IS 

. OR 1 . 



E3 *. 

.* FILE * 
TYPE 
IS I.S. 

•EXPANDED 



GET EXTENT 

SEQUENCE 

NUMBER 



YES NO .* SEQUENCE 
*....X....*. NUMBER IS 
*. OR 1 . 



* PROCESS * 
♦EXTENT SEQUENCE* 

* OPERAND * 



»*E4»****** 

* MODIFY * 
INSTRUCTION 
FOR EXTENTS 

OMITTED 

* *B4 * 



•GET AND CONVERT* 
•RELATIVE START * 
* TRACK OPERAND * 
•••••#•••*•**•••* 



**E5****««* 

* MODIFY « 
INSTRUCTION 
FCR EXTENTS 
NOT OMITTED 

* «B4 * 



FETKNC 

•*««*F5« 

•FETKTK 



•GET ANC CONVERT* 
• NUMBER OF * 
•TRACKS OPERAND ♦ 



H4 «. 

.♦ START ». 

TRACK 

GT 196C0 



****J4******** 

MOVE START 

TRACK TO 

OUTPUT BLOCK 

AT XTLL 



• 


OMITTED * 
CPERANC 


YES 




**NC 

X 

H5* **. 

• HIGH «. 






TRACK *. 




GT 19600 






*B5 .« 

'•NO 

X 






>«J5#««««««« i* 




PCVE HIGH 






TRACK TC 




CJTPUT BLOCK 






AT XTLL+2 


* 




*.X 





*K1 
LIOCS RECOGNIZES 
12B FOR TYPE 8. 



ERRRTN 

CHART AC 

• K2 



• EK • 

• Bl* 

* * 

FETKN01 
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Chart EK. $$BATTNO - EXTENT Statement Processor (Part 3 of 3) 
Refer to Chart 06. 



FETKN01 X 

««»#»B1*»»*«»#« 

* TEST FOR 

* START TRACK 

* AND TRACK 

* NUMBER 



• BLANK 

ENDED LAST 
». SCAN 



* EQUAL 

SIGN ENOED 
*. SCAN 



* RESET » 

• MTAFLG BITS • 
•FOR LOOK-AHEAD 
•AND NO-EXTENT« 

• DEQUEUE • 



•***CA******** 

LOAD POINT* 

WITH ADDRESS 

OF PREVIOUS 

EXTENT 



SET FLAG 
MTRSVD 
SAKE AS 
MTAFLG 



OUTPUT 

PREVIOUS 

EXTENT 



PROCESS 
B= BINS 
OPERAND 



GET SPLIT 
CYLINDER 

OPERAND 



THIS INSTRUCTION WAS 
MODIFIED FOR EXTENTS 
OMITTED OR NOT OMITTED. 
SEE CHART EJ. 



», E3 . ,.».♦. 

• RESET * 

• MTAFLG • 
•FLAG BYTE WITH 

• MODIFIED • 
OPERAND *E2 • 



SYMBOLIC 
UNITS ARE 
. EQUAL . 
». »K5 .» 



RESET DATA 

LENGTH 

•DTALGT' 

TC 8* 



•••E5«««*«««* 

REPLACE 

PREVIOUS 

EXTENT WITH 

NEW EXTENT 



.». 




.*. 


NEWXTN X 


F3 ». 




FA ». 


••«««F5*****«« 


FIRST *. 




.• BIN •• 


• INCREASE 


EXTENT *. 


NO 


.• NUMBERS ». 


• POINT4 TC 


LIMITS .• 




. ARE EQUAL .* 


• NEXT EXTENT 


OMITTED .» 




«. «K5 .« 


• AND STCRE 


.• 




». .» 


• IN LBLPTR 



CLEAR EXTENT 
LIMITS FOR 
THIS EXTENT 



G4 •. 
.« VOL •. 

♦SERIAL NOS. 
ARE EQUAL 



•♦»#*H1»***»*»«*« 
•NUMCON EM« 

• CONVERT * 

• TO • 

• BINARY • 


• •*• 


X 

Jl***». 

.•* VALUE **. NO 
*. GT 19 .* 


•*»»«J2 ••••••*••• 

• STORE SPLIT • 

• CYLINDER • 
...X« START TRACK « 

• NUMBER IN « 

• OUTPUT BLOCK • 



FILE 
TYPE IS 

SD 



XTUNIT X 

•♦#»»J3«»««»#*« 

• AOD 1 TO 

« EXTENT COUNT 

• IN LABEL 

• SAVE AREA 



NODCUX 

♦♦H4**»»«»« 
•TURN ON BIT* 

* IN MTAFLG • 
• FOR NO-EXTENT 

• DEQUEUE * 



PACKCG 

»»J4«#«»««» 
♦TURN ON BIT* 

• IN MTAFLG 
* FOR LIOCS 

• LOOK-AHEAD 



♦♦G5««««««« 
ADD 20 TC 
THE DATA 
LENGTH IN 
•DTALGT" 



••H5 •• 

•SET JBCSW5 • 

• FOR BLCCK 
PRESENT AND 

• EXTENT 

♦ PROCESSEC • 



CONTROL 
CHART AB 
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Chart EL. $$BATTNO - EXTENT Processor Subroutines 
Refer to Chart 06. 



» FSCAN1 



***«C1****» 
* FEBIN1 



.* "EXTENT* 
BEING 
». PROCESSED. 



NO .* OPERAND 
X..*. FOR BINS 

♦.SPECIFIED. 



BLANK 
ENDED 
SCAN 



•*»»A2 ********* 
* FSCAN 



* BLANK 

ENDED LAST 
*. SCAN 



FSCAN1 

*#**»C2 ********** 
♦ SCANR2 AD* 



* EQUAL 

SIGN ENDED 
*. SCAN 



•***E2 ********* 

SET CONDITION 

CODE TO 

INDICATE 

OPERAND IS 

PRESENT 



»»#«F 2 ********* 

RETURN TO 

ADDRESS IN 

LINK REGISTER 



CHECK 
DECIMAL 
DIGITS 



Jl *. 

OPERAND***. 


NO 


» 


»«J2****** 

MOVE BIN 

NUMBERS 

TO OUTPUT 

BLOCK 


GT 2 .* 

***YES 




..X. 
X 






X 


* * 

* 2 * 






* 1 * 



•***A3***«* 
* FESEQ 



GET EXTENT 

SEQUENCE 

OPERANO 



TEST VALIDITY 

OF OPERAND 

OMISSION 



♦EH-G2 
EJ-H4 
EK-J1 
EM-H3 
EN-H3 



*«*F3«******* 
INCREASE 
PREVIOUS 

EXTENT 

SEQUENCE 

NUMBER BY 1 



OPERAND *. YES X 

LENGTH .* 

GT 3 .* 



««F5*****« 

NVSERR 

CHART AC 



XTOP12B .*. 






G4 *. 












.* SEQUENCE *. YES 




♦EJ-CA 


*. NUMBER .*... 




EK-D1 


*. GT 255 .* 




EM-F3 














*NO 






X 


NLSERR 








X 


* MOVE EXTENT * 




»#H5***«* 


* SEQUENCE * 




ERRRTN 


* NUM8ER TO * 




CHART AC 


* OUTPUT BLOCK * 




*J5 


*•*••••*••••*•••• 


«« 


********* 



*»**J4********* 

RETURN TO 

ADDRESS IN 

LINK REGISTER 



*J5 
•1L00D INVALI 
LABEL SYNTAX' 
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Chart EM. $$BATTNO - Process Track Operands 
Refer to Chart 06. 



NUMCON 



X 

•FSCAN 



« CHECK ALL 
•CHARACTERS FOR 
» VALID LIMITS 



OPERAND 
LENGTH 
GT 5 



OPERAND 
POSITIVE 
. VALUE 



ADD START 
TRACK VALUE 
TO OPERAND 



• PACK TO 
•PACKED DECIMAL 

• FORMAT AND 

• CONVERT TO 

• BINARY 



RETURN TO 

ADORESS IN 

LINK REGISTER 



» OPERAND 

OMITTED ON 

*. FIRST . 

•EXTENT.* 



»*««G3«««*»»«« 

LOAD RETURN 

ADDRESS FROM 

LINKR3 TO 

LINKR1 



YES .• FILE 
...♦.TYPE IS S.D. 
•. LOAD 



»•*# J2*««»*«» 
RETURN TO 
LINK REG. + - 



*«»*J3********* 

• RETURN TO 

• ADDRESS IN 
•LINK REG. *J4 



«J4 

IF RETURN WAS REACHED 
VIA FETKTK1, RETURN 
IS TO THE ROUTINE THAT 
CALLED FETKTK. 
IF ENTRY WAS MADE AT 
FETKTK2, RETURN IS 
TO THE FESEQ ROUTINE. 
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Chart EN. $$BATTNO - LBLTYP Statement Processor 
Refer to Chart 06. 



****B2* 


»•*••••• 




* LBLTYP * 

• * 




LBLTYP 

•«»««C2* 
• SCANR2 


AD* 


*C3 
TAPE (NNJ 
NSC (NN) 



POINT TO 

OPERAND 

*C3 



BLANK 
ENDED 
SCAN 



*#**»E2 ********* 

* SET LENGTH 

* OF PARTITION 

* LABEL AREA 

* TO 80 

* (ASSUME TAPE) 



CALCULATE 

LENGTH OF 

PARTITION 

LABEL AREA 

*F5 



*F5 
20 X NN + 84 
OF PARTITICN 
LABEL AREA. 



P0INT1=FIRST N OF NN. 



SET EXTENT 

AREA BYTE 

COUNT TO 20 

(ASSUME NSD) 



*•••*•*••* 



»****G3********* 

* SET POINTER 

* AND LENGTH 
.X*FOR CONVERSION 

* TO BINARY 

* *G5 



.* LAST *. YES 
.CHARACTER IS .*.... 
*. PAREN. .* 



****G4******** 

STORE LENGTH 
OF PROGRAM 
LABEL AREA 



*«**H4******* 

* CONTROL 

* CHART AB 
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Chart EP. $$BATTNP - READ Statement Processor 
Refer to Chart 06. 



•A2*««« 
READ 



SRFG CC« 

-»-» — *-»T-» — » — * 

GET LUB • 

ANO PUB • 

POINTERS • 



BLANK 
ENDED 
SCAN 



•»D3««*«»* 

NVSERR 

CHART AC 



•VALIDITY CHECK 

* AND CONVERT 

• CHAN AND UNIT 



• VALID • 
DEVICE TYPE 

♦ . »F5 .» 



»#**G2»*«*«» 

* ERRRTN 

* CHART AC 

* »H2 



F3 ». 

.•DEVICE • . 
* WAS * 

ASSIGNED TO 

*. ANOTHER .» 

•.AREA .« 

'•YES 



ERRRTN 

CHART AC 

»H3 



UNASSIGN 

PREVIOUS 

ASSIGNMENT 



CALCULATE 

PUB ENTRY 

♦ G5 



♦F5 
VALID TYPES ARE CARC 
READER, READER/PUNCH, 
AND 1052 KEYBCARC 
PRINTER WITH 1056 
CARD READER. 



•G5 
SYSTEM LUB INOEX (FICL) 
FROM 2ND PART CF 
COMMUNICATIONS REGICN, 
MULTIPLIED BY 2, 
ADDED TG START CF 
LUB TABLE (LUBACC). 



•H3 
1A10D CONFLICTING 
I/O ASSIGNMENT.' 



TURN ON 
OWNERSHIP 
FLAG IN PUB 



•SET BITS IN* 
* FLGBYO FOR • 

SYSRDR INPUT 
•AND FOR READ * 

•ISSUED «J5« 



»J5 
THE SWITCHES SET AT 
THIS TIME ARE TESTEC 
BY THE RCOT PHASE 
$$BATTNA TO ESTABLISH 
INPUT DEVICE TYPE. 



**«»K4»»*«»« 

• CONTROL 

• CHART AB 
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Chart EQ. $$BATTNP - HOLD or RELSE Statement Processor 
Refer to Chart 06. 



*A1»**»*»»* 
HOLD 



••••A2* ****** 
RELSE 



ASGCHG 

»*«**B1** 
♦GETKEY 



GET KEY OF 

FIRST 

OPERAND 



STATEMENT 
TYPE 

*H3 



»*B4******* 

* TURN ON • 
•HQLO/RELEASE 

SW IN PIB 
* ASSIGN 

* FLAG * 



»»»Cl*»****** 

GET THE 

APPROPRIATE 

PIB ADDRESS 

USING THE 

KEY 



#*C3******* 

* TURN OFF * 
•HOLD/RELEASE 

SW IN PIB 
* ASSIGN 

* FLAG * 



.BLANK. 
*»NO 



SAVE ADDRESS 

OF THE PIB 

IN P0INT4 



####»D3********* 

* RESET P0INT2 

* WITH PIB ADDR 

* OF THE FIRST 
*AREA SPECIFIED 

* BY FIRST OPND 



STATEMENT 
. TYPE 
*. *H3 .* 



* TURN ON * 
•HOLC/RELEASE 

* Sfc IN PIB 
* ASSIGN 

* FLAG * 



GET KEY OF 
SECOND 
OPERAND 



**«**G1** ****** 

* GET THE 

* APPROPRIATE 

* PIB ADDRESS 

* USING THE 

* KEY 



**F3******* 

* TURN OFF * 
•HOLD/RELEASE 

* SW IN PIB 
* ASSIGN 

* FLAG * 



SCAN 
DELIMITED 
. BY A . 
♦.BLANK.* 



**««K1******** 

NVSERR 

CHART AB 



*H3 
THIS IS A LOGICAL DECI- 
SION RATHER THAN A CODED 
DECISION. THIS ROUTINE 
USES A BAL INSTRUCTION TO 
ACCESS THE CODING START- 
ING AT LABEL ASGCHG. WHEN 
THE HOLD/RELEASE SWITCH 
SETTING IS CHANGED, IT IS 
ACCOMPLISHED BY EXECUTING 
THE INSTRUCTION WHOSE 
ADDRESS IS IN THE LINK 
REGISTER. THEREFORE, THE 
ENTRY POINT TO THE hOLC 
PROCESSOR (BAL TO ASGCHG) 
IS FOLLOWED BY AN IN- 
STRUCTION TO TURN ON THE 
HOLD/RELEASE SWITCH. THE 
SWITCH SETTING INSTRUCTION 
ADDRESS IS NOW IN TFE LINK 
REGISTER. THE SAME TECH- 
NIQUE IS USED BY THE 
RELEASE PROCESSOR. 
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Chart FA. $$BEOJ - Terminated Program I/O Handling and EOJ Processing (Part 1 of 3) 
Refer to Chart 09. 



* * 

* $$BE0J * 

* * 
*************** 



IJBEJ33 
START X 

*****B1********* 

* POINT Rll TO 

* BG COMREG, 

* MOVE LTK TO 

* SAVE AREA TID 
♦(ASSUMES NOAP) 



* CLEAR * 

* AB TABLE * 
♦POINTER (REG 3)* 



*****D1******** 

* LOAD ADOR 

* OF BG COWIREG 

* EXTENTION 

* INTO REG 2 

*************** 



.* IS *. 
THERE AN *. NO 
EXTENTION .*... 



****F1 ********** 

GET AB TABLE * 

POINTER FROM * 

COMREG * 

EXTENSION * 



*. SUPPORTED .*..X 



MOVE LID TO 

SAVE AREA TID 

(TASK ID) 



.* DTFS * 
.* FOR MICR 
SUPPORT 
*. EXIST 



**** 
RETML X 

*****«!********** 

* * 

* LOAD ADDR OF * 

* PIB TABLE * 

* INTO RIO * 

* * 
***************** 



*****A2********** 

* ADD TID VALUE * 
*T0 RIO TO POINT* 
*T0 TERMINATING * 

* TASK'S PIB * 

* ENTRY * 
***************** 



* RESET CHAN 

* APPENDAGE BIT 

* IN PIB ASSIGN 

* FLAG 

**************** 



*****3 3** ******** 

* * 

* LOAD ADDRESS * 

* OF PC TABLE * 

* INTO REG 13 * 

* * 
***************** 



LOAD ADDRESS * 

OF PIB TABLE * 

INTO REG 7 * 

* 

**************** 



C2 ♦ . 




*****C 3** ******** 




C4 *. 


.* IS *. 




*ENT1 FD* 




.* * 


.♦ IT A *. YES 


*_*-*_*^* -*_*-*-* 


NO 


* NORMAL 


SUBTASK .♦ 




* ZERO THE * 




EOJ 






* OPTION TABLE * 




*. 






* ENTRY * 




♦ . .* 


*. .* 


X 




X 


*. .* 


*N0 


**** 

* 3 * 

**** 




***** 
*FB * 
* Bl* 
* * 
* 
UNNORM 


♦ YES 
X 


X 




X 






****Q2 ********** 




*****Q3*# ******** 




DA *. 






* * 




.* IS * 


GET ID (LTK> * 




* LOAD ADDRESS * 


NO 


.* OTAM MSG 


OF TERMINATING * 




* OF GC TABLE * 


. . . .♦ 


CTRL TERMIN 


TASK INTO REG 5* 




* INTO *£G 13 * 




*. ATING 



*****B 5 ********** 

* * 

* LOAD ADDRESS * 

* OF $$BTERM * 

* INTO REG 1 * 

* * 
***************** 



****C5********* 
SVC 2 

FETCH $$8TERM 

CHART HA 

*************** 



*********** 



*****£2********** 
♦RESET WRITE ON * 
♦SYSRES BIT AND * 
*CHAN APPENDAGE * 

* BIT IN PIB * 

* ASSIGN FLAG * 
***************** 



*****F2********** 

* RESET * 

* CANCEL BEGUN * 

* BIT IN PIB * 
*BYTE 15, BIT 5 * 

* * 
***************** 



*****G2********** 

* * 

* LOAD ADDRESS * 

* OF IT TABLE * 

* INTO REG 13 * 

* * 
***************** 



.* TIMER *. 
.* SUPPORTED *. NO 
*BY TERMINATING.*... 
*. TASK .* 



***** j 2 ********** 

* * 

* DIVIDE * 

* LTK * 

* BY 2 * 

* * 
***************** 



************ 



*********** 



* ZERO THE 

* TABLE 

* ENTRY 
************* 



****#P3******** 

* LOAD THE 

* ADDRESS OF 

* THE AB TABLE 

* IN REG 13 
* 
*************** 



SET QTAM * 
FIELD TO 
-SAVE THE KEY* 
* * 

*********** 



*GET ADDRESS OF * 

* MICR DTF TABLE * 

* INTO REG 10 * 

* * 
***************** 



*****F 5 ********** 

* SET UP 6 IN * 

* LOOP COUNTER * 

* REG 7 FOR NO. * 

* OF ENTRIES IN * 
*MICR DTF TABLE * 
***************** 



****G 3** ******** 






G^ *. 




G5 *. 




ENT1 FD* 






.♦ ♦. 




.* *. 




-*_*_*-*_*-*_*-* 






.* BATCHED *. YES 




* MICR * 


. NO 


ZERO AB * 






*. PARTITION .*.... 


*! 


DEVICE IN 




TABLc * 






*. .* . 




*. USE .* 




ENTRY * 






♦ . .♦ . 




*. .* 




**************** 






*. .* X 
*NJO ***** 
**** . *FB * 
* * * E4* 




*. .* 
*YES 




! * 


FB-B5 t D5* *... * * 














* * * * 








X 






**** X EOJSTEP 








.*. 






ARCANCEL .*. 




X 




H3 *. 






H4 *. 


*****HS******** 


** * 


.* *. 






.* *. 


* 


ZERO THE 




.* AUTOTEST *. NO 




.* IS THIS *. NO 


* 


ADDRESS IN 


* 


. PROGRAM IN .*. 






*. A SUBTASK .*.... 




THE DTF 




♦.PROGRESS .* 






♦ . .* 


* 


TABLE ENTRY 


* 


*. .* 






*- .♦ 


* 




* 


*. .* 




X 


♦ . .* X 


***************** 


*YES 


**** *YES **** 










* 




* **** . * * 










* 


3 


* * * * 5 * 










* 




* * 4 *.X. * * 










**** * * **** 
**** 




. X. . . . . 










X 






SUBEOJ X MICR1 


X 




**** j 3** ******** 






**j*,.******* 


** 


***J5********** 


* 






* * 


* 


INCREMENT 


* 


LOAD ADDR OF * 






* SET REG 1 * 


* 


TO NEXT 


* 


$$BATST3 INTO * 






* EQUAL TO * 




ENTRY IN 


* 


REG 1 FOR SVC * 






* ZERO * 


* 


THE DTF 


* 


* 






* * 


* 


TABLE 


# 


**************** 






*********** 


***************** 



****K3** ******* 

* SVC 2 * 
♦FETCH $$BATST3 * 

* * * 
*************** 

♦REFER TO IBM SYSTEM/360 
DOS AUTOTEST PLM, 
GY24-5027. 



****K4*+**+^** 

* SVC 39 ♦ 

* DETACH * 

* * * 
*************** 

♦FOR DETACH FUNCTION, 
SEE SUPERVISOR AND 
RELATED TRANSIENTS 
PLM, GY24-5151. 



ALL 

DTP'S 

ZEROED 



* 1 * 

* * 
**** 
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Chart FB. $$BEOJ - Terminated Program I/O Handling and EOJ Processing (Part 2 of 3) 
Refer to Chart 09, 



*»*#ci*»*»»»*» 

LOAD 

ADDRESS 

OF QTAM 

VECTOR TABLE 

INTO R5 



»*»«A2*****»** 

LOAD ADDR OF 

NEXT DTP 

IN CHAIN 

INTO R5 



END 
OF DTF 
CHAIN 



C2 • • 

. * NEXT •. 
DTF IN 

PARTITION 
. BEING . 

•.TERM .* 



SET PIB » 








FLAG FOR * 






CANCEL IN « 






PROGRESS * 
















* 5 » 
















» 4 « 
















X 




X 






SUPPRIO .«. 


83 • • 






84 ». 








.* PROG * 


WAS LTA *. 


*JI) 




.• BEING 


EXECUTING .* 


..X 


«. TERMINATED 








». IS 


«. .* 






«. BG .* 




X 




♦YES 


• FC*» 
« Bl» 

CNCLTEST 


♦ YES 


X 




X 


*C3«*«»**» 




»*C4**«**« 


RESET • 




» RESET 


LTA BIT * 




• CATAL AND 


IN CANCEL « 


* SUPERVISOR 


CODE • 




» UPDATE JOB 


* 






•CONTROL SW 



NO 



• ESTABLISH 
•ADDRESSIBILITY 

• FOR NEXT DTF 



.» IS •. 

• MSG CTRL * 
TERMINATING 



• LOAD ADDR OF 

• BEGINNING OF 
•MSG PROCESSING 
» DTF CHAIN 

• INT0R3 



LOAD ADDRESS 

OF $$BQCNCL 

INTO Rl 



Gl *. 




*• 


»#»G2 ♦*••*••*•* 


.•ANY MSG«. 








PROCESSING •. 


NO 




SAVE CANCEL • 


PROGRAM 






CODE FROM * 


. ACTIVE .« 




• 


PIB ENTRY • 










*. .» 


X 







HI ♦. 




*»H2»«**»»* 


.•DTF IN •. 




* SET PIB 


THIS PARTI-». 


YES 


• CANCEL CODE 


TION BEING . 




•ENTRY = X'28, 


. TERM I- .» 




• QTAM 


«.NATED.» 




• CANCEL 


». •• 


X 





•**** SVC 2***** 

•FETCH *$BQCNCL 



YES .« 


ATTN *. 




ROUTINE .« 


• * 


CANCELED .» 






X 






• NO 


• FA ♦ 




« H4* 












ARCANCEL 






X 


*#**«E3«»*»**»*»* 


•LOGLIST FC* 








WRITE * 




MESSAGE ♦ 


* 


0S08I * 




X 








F3 ». 




.•CANCEL •. 


YES .« 


CODE ». 


...•.BETWEEN X'20' .• 


• 


AND X'22'.» 



••C4*«***»« 
» SET • 
CANCEL CODE 
BIT IN JOB 
CONTROL SW 
* JCSWO * 



EOJSTEP 

##»*»E4»*»«*»*»* 

• ZERO CANCEL 

• CODE BYTE OF 

* PIB AND RESET 
•OPEN INDICATOR 

* IN JCSWC 



SET UP 

TO FETCH 

$$BE0J1 



SVC 2 

FETCH $$BE0J1 

CHART FE 



•#*»#G4***»»**»* 
•MOVE SAVE AREA 

• PNTR AND LOAD 

• Rl TO SKIP 
« REGISTER 

• SAVE AREA 



PUT LOAD PT 

INTO RO 

AND JOB CNTRL 

NAME ADDR 

INTO REG 1 



♦ SVC A 
LOAD PHASE 
$JOBCTLA 



• SET X'10' 

IN PIB 

TC SHOW FG 

CANCEL 



••*»«F5««««*««««« 

• SET REG 1 • 

• WITH ADDR CF • 

• BG SAVE AREA • 
•AND MGVE JCTPSW* 

• TC THAT AREA • 



«*#«#G5 «•••«•««•• 

• RESET PIE • 
•ASSIGN FLAG BIT» 
•THAT INDICATED • 

• CANCEL IN • 

• PROGRESS » 



SVC 11 

TASK 

SELECTION 



• K2 
REFER TO QTAM 
PLM, GY30-5002. 



• K3 
DETERMINES THE CAUSE 
OF THE CANCEL. IF 
THE CODE IS OUTSIDE 
THE RANGE SPECIFIED, 
CANCEL CODE ANALYSIS 
CONTINUES IN $$BE0J1. 



SET UP ENTRY 

POINT TO 

$JOBCTLA IN 

JCTPSW 
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Chart FC. $$BEOJ - Terminated Program I/O Handling and EOJ Processing (Part 3 of 3) 
Refer to Chart 09. 











TPTYPE 


A4* *». 


»h»*A3*« 


















NO .* 


BG 




LOGL 


1ST 


* 


••••♦• 


PROGRAM 















•CANCEL 
DUE TO 
PROG 
CHECK 



DUE TO 

ILLEGAL 

SVC 



**B2»»«*»* 

SVC 2 

$$BPCHK 

CHART JF 



LOGLIST 

♦•#»*B3*»«»**»»* 

* CLEAR OUTPUT 
•AREA TO BLANKS 

• USE EXEC INST 

♦ TO MOVE MSG 
♦TO OUTPUT AREA 



BA ». 

.* BATCH ». 
• JOB ». NO 

FOREGROUND .*... 
•.PARTITION.* 



B5 ». 

• I/O 
DEVICE 
A TAPE 
DRIVE 



DUE TO ». YES 
PHASE NOT .»..., 
. FOUND .* 




»»«*E1*»*»*»*»* 


»«*«E2»*****»*" 


SVC 2 • 


• SVC 2 


$$BEOJ2 • 


• $$BILSVC 


CHART FG • 


• CHART JA 



••♦»*C3***«**«»»* 
•LD LUBTAB AODR • 
♦IN R4, LD OUTPT* 
♦AREA ACCR IN R5* 
♦ST OUTPUT AREA ♦ 
♦ ADDR IN CCWLG ♦ 



D3 ♦. 

BG 
PROGRAM 



»«**E3*«««««*** 

POINT Rl TO 

2ND HALF OF 

PIB, POINT RA 

TO LUB ENTRY 

FOR SYSLST 




.♦ IS ♦ 
I/O 
DEVICE A 
. OISK 



DKTYPE 

•*«*#04** »»»♦•*»* 
•LD ADDR OF DIB ♦ 
♦IN R5. INDEX 72* 
♦BYTES TO SYSLST* 
♦DIB CMP CURRENT* 
♦ADOR TO END ADR* 



».#„*G1»»»«*»»»» 
♦ST OUTPUT AREA 

♦ ADDR IN CCWLS 

♦ LD CCWSKIP 

♦ ADOR IN REG 5 



•••• «G2 **♦♦♦♦♦♦♦♦ 

♦ RELOCATE TAPE ♦ 

♦ OUTPUT AREA ♦ 
♦AD3R INTO CCWTP^ 
•LD ADDR OF CCW * 

♦ IN REG 5 ♦ 



RLCCB 

«»«*#H2»«»»»»*«« 

♦ STORE ADDR OF 

♦ APPROPRIATE 
♦CCW IN RELATEO 
♦CCB FROM REG 5 



WRITE MSG 
ON I/O 
DEVICE 



NOFG 




F3* *♦. 


NO 


* 


IS 

SYSLST 
ASSIGNED 



•*»*«G3*«*«»»»««« 
♦STORE UNIT AODR» 

♦ OF SYSLST IN ♦ 

♦ CCB. PUT PUB ♦ 

♦ PNTR IN R5 ♦ 

♦ FROM LUBTAB ♦ 



•••••H3«««««»*»*» 

♦ MULT R5 BY 8 ♦ 
•TO INDEX PUBTA8« 
♦R6 POINTS AT IT» 
♦LD R6+R5 IN R4 * 
♦FOR SYSLST PUB ♦ 



»#«»»J3«««»#*#»« 
•GET SYSLST OEV 

• TYPE FROM PUB 

• MOVE TO FIELD 

• CALLED TYPE 



•**#K2*******«« 

♦ RETURN TO ♦ 
♦ADDRESS IN LINK« 

• REGISTER • 



SYSLST 
EXTENT 
FILLED 



•««««C5« 


«*«•••« 


• « 


• RELCCATE 




• ADDR 


IN CCW 




* ANC 


CCW 




* ADDR 


IN CCB 


* 



SENSE TAPE 

DR FOR FILE 

PRCT CCNC 



• SET SEEK ADDR ♦ 

• IN CCW AND * 
•SET COUNT FIELD* 

• (CCHHRKDD) IN * 

• OUTPUT AREA * 



•BY 1, PUT ADDR 
•IN SEARCH CCWS 
•LD IN TIC CCWS 
• SRCH CCW AODR 



•ST ADDR OF DISK* 
•OUTPLT AREA IN • 
•hRITE CCW, LOAD* 
•ADDR OF 1ST CCW* 
♦OF CHAIN IN R5 ♦ 



♦ RETURN TC ♦ 
♦ACDRESS IN LINK* 

♦ REGISTER • 



• IS ». NO 

SYSLST A .»... 
». POINTER .» ■ 
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Chart FD. $$BEOJ - Message Output Subroutine and Zero Option Table Subroutine 
Refer to Chart 09. 



•***C2 ********< 

LOAD AND 

TEST REG 13 

FOR ANY PC i 

0C, OR AB 
TABLE ENTRY 



»»*C4** ****** 

LOAD 

CCB A00RESS 

INTO REG 

1 



**»*01***** 


*•*» 


. * *• 




* 


.* PCOC *. NO 


ENT2 


* 


*. OR AB TABLE .*.. 




* 


*. ENTRIES .* 






*"* »"* 


• 




• YES 


. 




x" 






ENT2 X 






»#**#E2 ********** 






* GET ENTRY IN * 






* TBL FOR PROG * 






♦INVOLVED USING * 






*R10 PIB POINTER* 






* PLUS R15 *F1 * 



*F1 
R15 CONTAINS 
LTK DIVIDED 
BY 2. 



*«**F2*«****** 

ZERO ENTRY 

IN PC, OC OR 

AB OPTION 

TABLE 



•C4****** 

SVC C 

EXECLTE 

CHANNEL 

PROG 



.* I/O 

. OPERATION 
♦.COMPLETE . 



*«**F4****« 

* SVC 7 

* WAIT 



**#»G2* 

RETURN TO 

ADDR IN LINK 

REGISTER 



*»»*G4 ******** 

* RETURN TO 

* ADDR IN LINK 

* REGISTER 
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Chart FE. $$BE0J1 - Prepare Cancel Cause Message 
Refer to Chart 10. 



IJBEJ133 X 
GAUSE1 .♦. 
Bl 



*B2 
APPROPRIATE MESSAGE 
FOR ILLEGAL SVC SET 
UP AT ASSEMBLY TIME 
MODIFIED ACCORDINGLY 
FOR TERMINATION 
CAUSE (SEE BLOCK J2). 



RELOCATE 

CCW ADDRESS 

IN CCB 



*»C5«****** 

*RESET CATAL* 

AND SUPERVISOR* 

* UPDATE INDEX 

* SWITCHES IN * 

* CCMREG « 



.* BG *. 

PARTITION 

OR BG 

.MAINTASK . 



»«*E1****»**« 

MOVE 

JOBNAME 

FROM COMREG 

TO OUTPUT 

AREA 



CHANGE OUTPUT 

AREA WORD 
•JOB* TO 'SUB« 



****E2******** 

POINT R4 TO 

SAVE AREA, 

MOVE JOBNAME 

TO OUTPUT 

AREA 



PROGRAM 

CHECK 

♦B2 



*»«**G1**** **#**< 

* SET MESSAGE 

* CODE FOR PROG < 
•CHECK OS11I IN 

» SYSLOG/LST 

* OUTPUT AREA 



•»**H1 ********* 

SET UP CCW 

MESSAGE COUNT 

IN BYTE COUNT 

AREA OF CCW 



F2 *. 

.* PHASE *. 

.* NOT FOUND 

.X*. INDICATOR 

*. ON 

*. »B2 .* 

YES 



X 

•»»»G2********** 

SET UP * 

PHASE NOT * 

FOUND MESSAGE * 

0S06I IN * 

OUTPUT AREA * 



E3 *. 

*SYSLOG 
SYSLST 

"*N0 



»##*F3* ******** 
GET AND STORE 

ADDRESS OF 
LOGICAL UNIT 

ADDRESS OF 
SYSLOG IN CCB 



WRITE 
CANCEL MSG 
ON SYSLOG 



LOAD ADDRESS 

OF LUB-TABLE 

INTO R4 



X.. 



ONLIST X 

••«*«H3 ******** 

* SET UP A 

* COUNT OF 120 

* IN BYTE 

* COUNT AREA 

* OF CCW 



***D4******* 
SET SYSTEM 
LUB INDEX 
FOR THIS 
PARTITION 



CALCULATE 

LUB TABLE 

ENTRY 



**E5****** 

* SET 
CANCEL 
BIT-ON 
FOR JOB 

* CONTROL 



TSTL 


ST .*. 






F5 *. 










NO 


* SYSLST * 






. ASSIGNED 
«. . * 


.* 








X 






**** 


*YES 




FF * 
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Chart FF. $$BE0J1 - Output Cancel Message on SYSLST 
Refer to Chart 10. 
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Chart FG. $$BE0J2 - Select Cancel Message and Program/Task Identification 
Refer to Chart 11. 
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Chart FH. $$BE0J2 - Select I/O Device and Output the Cancel Message 
Refer to Chart 11. 
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Chart FJ. $$BEOJ2A - Select Cancel Message and Program/Task Identification 
Refer to Chart 11, 
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Chart FK. $$BE0J2A - Select I/O Device and Output the Cancel Message 
Refer to Chart 11 • 
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Chart FL. $$BE0J3 - Quiesce I/O for TP Devices 
Refer to Chart 08. 
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Chart FM. $$BEOJ4 - Quiesce I/O for Non-TP Devices 
Refer to Chart 08. 
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Chart FN. $$BE0J5 - Release Tracks Held by Task/Partition 
Refer to Chart 08. 
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ADDRESS 
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».TRAN. KEY IN . 
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GET ADDRESS 
OF SYSLST 
DIB, LUB 
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NO .< 
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. DISK .• 
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B3 ♦ . 




• BOTH •. 


.♦SYSLST LUB 




ENTRIES 




CHECKED . 












•YES 










* 3 


♦ . . . 








»♦ X 


TRKHLD 






C3 «. 








TRACK 




HOLD 


• 


SUPPORTED. 



• INSERT CANCEL 
•CODE X'35« «K2, 

• SET LUB ENTRY 

• TO X'FF« 



*K2 
CANCEL CODE X'35«- 
JOB CONTROL OPEN 
FAILURE, NO EXTENTS 
HAD BEEN POSTED IN DIB 



STORE CCW 

ADDRESS IN 

CCB 



#»»*E3«««««*«» 

PICK UP ADDR 

OF LOCATION 

TAODR AND 

STORE IN 

RELOCATE 



MOVE CATA 
ADDR FROM 
RELOCATE 
TO CCW+1 



»»*#*G3«***«***» 

• POINT Rl TO 

* CCB AODRESS 

• FOR FREEING, 

♦ POINT R2 TO 
♦COMREG XTNSION 



***»*H3«*******« 

• SET R4 TO NO. 

• OF ENTRIES 

» IN TRACK HOLD 

• TBL, R3 TO 
•START OF TABLE 



LOOP .♦. 

B5 •. 

.•TERMI- •. 

.♦NATING TASK^ 

«.CR PARTITION 

♦.CWN HELD .• 

♦.TRACK.* 

'•YES 



CLEAR TRACK 

HCLO ENTRY 

COUNTER TO 

ZERO 



♦PUT ADDRESS OF ♦ 

♦ TRACK BEING ♦ 
♦HELD INTO TADCR^ 

♦ AND ADDRESS ♦ 
♦OF CCB INTO R6 ♦ 



MCVE SYMBOLIC 

UNIT INTC 

CCB+6 






• G5« 



♦••♦»K3 *♦♦♦♦♦♦••• 

• SET 'LOOP' • 

* TO COMPARE • 
» PARTITION ID • 

♦ TO TRACK • 
•OWNER ID *K1« 



»K4 

INITIALLY SET 
TO DETERMINE 
IF TASK, NOT 
PARTITION, 
OWNS TRACK. 



INCREMENT 
R3 TC NEXT 

ENTRY IN 

TRACK HCLC 

TABLE 



.» END •. 

*.CF TRACK HCLC. 
«. TABLE .♦ 



SET R15 AND 
Rl FOR 

$$BEOJ 



SVC 2 

FETCH $$BEGJ 

CHART FA 
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Chart GA. $$BESTVA - Phase 1 of Tape Volume Error Statistics 
Refer to Chart 08. 



#*A1***»»» 
SSBESTVA 



♦*»#*B1******»* 

* RELOCATE ALL 
*CCW ADDRESSES, 
« GET ADDRESS 

* OF 

* GOMREG 



DTP 

TYPE 

= X'10' 



DTP 

TYPE 

= X«15« 



WRITE 

ESTV RECORD 

TO DASD 



01 ». 

OUTPUT 

TO 

DASD 

**YES 



X 

***G1****** 

SVC 2 

SSBESTVF 

CHART GG 



COMPUTE 
POINTER 
TO PUB 



* MOVE ♦ 
» CHANNEL UNIT * 

* AND * 

* DENSITY IND » 
*TO ESTV RECORD « 



C2 «. 
.* DTP ♦ . 

.*OR VARIABLE*. 
.OR UNDEFINED . 
*. RECORDS .♦ 



MOVE BLOCK 

LENGTH TO 

ESTV RECORD 



•»C3«««*«*» 

* SET 
STATUS 

AND UPDATE 
COUNTER TO 

* FULL 



•COMPUTE ADDRESS* 
* OF CORRECT * 
« TEBV ENTRY » 



* UPCATE *. 

COUNTER LT . 

♦.RCDS/TRK .* 



INCREMENT 
UPDATE 
COUNTER 



« SET ♦ 

LABEL POINTER 
* TO FILL * 



UPCATE 

LABEL 

PCINTER 



WRITE LABEL 

POINTER TO 

VTOC 



«»»E5«««*«« 
SVC 2 
$$BESTVC 
CHART GC 



PUT ZERO 
IN BLOCK 
LENGTH 



MOVE TEB 
COUNTERS TO 
ESTV RECORD 



COMPUTE 

TIME OF 

DAY 



MOVE DATE 
AND TIME TO 
ESTV RECORD 



.• OUTPUT 
TO 
». SYSLOG 



LAST 
RECORD ON 
. TRACK . 



INCREMENT 
RECORD 
NUMBER 



««J3««««»»* 

* INCREMENT 
♦CYLINDER NO. 

ZERO 
* TRACK 

* NUMBER 



• RESET 
RECORD COUNT 

* TO ONE 



LAST 
TRACK ON 
.CYLINDER 



INCREMENT 

TRACK 

NUMBER 



««K3»«»«*» 

SVC 2 

$$BESTVB 

CHART GE 



* SVC 2 
♦NEXT TRANSIENT 

♦ *K5 



♦ K5 
TRANSIENT KANE WAS 
DETERMINED BY CALLING 
ROUTINE ($$BCL0S2 CR 
$$BCECV1I. REFER TC PLM 
DOS LOGICAL ICCS VOLUME 
1, GY24-5020. 
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Chart GB. $$BESTVB - Phase 2 of Tape Volume Error Statistics 
Refer to Chart 08. 



MOVE VOL SER 

NO. TO 

OUTPUT MSG 



CONVERT 

CHANNEL AND 

UNIT NUMBER 

TO PRINTABLE 

FORM 



MOVE NOISE 

BLOCK CTR TO 

OUTPUT MSG 



CVT PERM 

READ AND WRITE 

CTRS TO 

PRINTABLE 

FORM 



»*«DL»«***«*» 

MOVE 

CHANNEL AND 

UNIT TO 

OUTPUT 

MSG 



**E1**»***» 

CONVERT 

TEMP READ 

CTR TO 

PRINTABLE 

FORM 



•••••C3 *»»• 

* MOVE PERM 
•READ AND WRITE 

* CTRS TO 

* OUTPUT 
» MSG 



* CVT SIO 

• CTR TO 
•PRINTABLE FORM 



MOVE SIO 

CTR TO OUTPUT 

MSG 



MOVE TEMP 
READ CTR TO 
OUTPUT MSG 



RELOCATE 

CCW AND MSG 

PTRS 



*«»G1«»**»»* 

CONVERT 

TEMP WRITE 

CTR TO 

PRINTABLE 

FORM 



WRITE 
MSG TO 
CONSOLE 



••»H1»*«***» 

MOVE 

TEMP WRITE 

CTR TO 

OUTPUT 

MSG 



WRITE FOR 

MSG TO 
COMPLETE 



CONVERT 
NOISE BLK 

CTR TO 

PRINTABLE 

FORM 



SVC 2 
$$BESTVO 
CHART GD 



• *•• 


K4***»»»*»* 




SVC 2 




NEXT 


TRANS 
*K5 


ENT 



• K5 
TRANSIENT NAME 
WAS DETERMINED BY 
$$BCL0S2 OR $$BCE0V1. 
REFER TO PLM - CCS 
LOGICAL IOCS, VOL. 1, 
GY24-5020. 
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Chart GC. $$BESTVC - Phase 3 of Tape Volume Error Statistics 
Refer to Chart 08. 



»*A1»**»*» 
$$BESTVC 



DATA 

SET 

EMPTY 



#»*»»A4***»***«»* 

* SET NEXT ♦ 

.X»REC0RD POINTER * 

♦TO FIRST RECORD* 



RELOCATE 

ALL ADDRESS 

CONSTANTS 



ES0P09 

»»*»»B3**»»»***« 

* MOVE 

* LAST ESTV 
•RECORD POINTER 

* TO 

* CYLINDER ID 



* ESTABLISH 
♦ADDRESSABILITY 
♦FOR TEBV TABLE 



♦ TEBRPT = NO. * 
♦OF RECORDS PER ♦ 

♦ TRACK IF 2311 ♦ 



.♦ SYSREC ♦. 

♦.UNASSIGNED OR. 

♦. IGNORED .♦ 



READ VTOC 

LABEL INTO 

LABEL BUF 



TEBVDEV = NO. 

OF LAST TRK 

OF CYL IN 

TEBVSB 



.♦ ESTV ♦ 
.♦ DATA SET 
♦. LABEL 
♦. FOUND 



♦ ♦♦E2^*«*^ 

SET 

MESSAGE 

POINTER TO 

MESSAGE 2 

♦E5 



♦ SET ♦ 

♦MESSAGE POINTER^ 

♦ TO ♦ 

♦ MESSAGE 3 ♦ 



♦ F5 



♦ TEBRPT = NO. 
♦OF RECORDS PER 

* TRACK IF 2314 



E4 ♦. 

**. RECORD = 

'♦NO 



ES0P07 

NO .♦' 



ESTV 

DATA SET 

FULL 



SET MESSAGE 

POINTER TO 

MESSAGE 1 

♦ J2 



♦ SET DATA ♦ 

SET STATUS TO 
♦FULL AND OPEN^ 



WRITE 

MESSAGE TO 

CONSOLE 



♦INCREMENT NEXT 
♦RECORD POINTER 
♦TO NEXT RECORD 



READ AN 

ESTV 
RECORD 



. NO .♦ END 
...... OF DATA 

♦ . SET 



MESSAGE 2 = 
4E04I, 'ESTV 
NCT IN EFFECT* 



MESSAGE 3 = 

4E02I, 'NO 

ESTV FILE LABEL' 



RECORD 

READ 
CORRECT 



NXTESR = 

NEXT RECORD 

POINTER 



SET ESTV 

DATA SET 

TO OPEN 



♦J2 

MESSAGE 1 = 
4E01I, 'ESTV 
FILE FULL' 



SAVE ESTV ♦ 

LABEL POINTER ♦ 

IN TEBVSB * 



J3 ♦. 

EOJ 



SVC 2 
*$BESTVD 
CHART GD 



• •K4""" 

SVC 2 

$$BESTVA 

CHART GA 
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Chart GD. $$BESTVD - Phase 4 of Tape Volume Error Statistics (Part 1 of 2) 
Refer to Chart 08. 



•♦*»A1*»*»*»**» 
» $$BESTVD 



E0JEST2 

♦»»»*C1 *»»»*»»»*» 

* GET PROGRAM » 

* INTERRUPT KEY * 
*(PIK) AND SHIFT* 

* OUT 4 LOW * 
« ORDER BITS * 



GET INDEX 
TO 
LUB 



GET NUMBER OF 

LUB'S FOR 
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FROM 
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PUBS 



OUTPUT 

TO 
SYSLOG 
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*»»»»F2*****»»* 
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* CCW ADDRESS 
...* AND GET 

* ADDRESS OF 

* COMREG 



SET 
IPL 
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CODE IN 
REG FOR 
TRANSIENT 



•*F3«*«*« 
SVC 2 
$$BESTVF 
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TO 

NEXT LUB 



TRKHLD 
OR SYSFIL 
.SUPPORTED. 



**FA«»*«*» 

SVC 2 

$$BEOJ 

CHART FA 



•*F5«**««« 

SVC 
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.* THIS 
PUB 
♦.ASSIGNED 



THIS 
PUB A 
TAPE 
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,.X» CORRECT 

• TEBV ENTRY 



H2 ». 








.* WRITE * 
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». A 




«. RECORD .* 










X 


• NO 






♦ GE * 




* Al» 












WRITEREC 


CLEARCTR X 
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» CLEAR 


» 


* TEBV 




* COUNTERS 


* 


# 


»# 
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Chart GE. $$BESTVD - Phase 4 of Tape Volume Error Statistics (Part 2 of 2) 
Refer to Chart 08. 



• GD « 
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WRITEREC X 

»»»»» A ].•••* *»*•« 

• SET UP 

• ESTV RECORD 
» AND 

• CLEAR TEBV 
» COUNTERS 



OUTPUT 

TO 
SYSLOG 



•*»*B2 •*•***•** 

* SVC 2 * 

• $$BESTVB » 
» CHART GB • 



**84***»*»» 

SET RECORD 
NUMBER 
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WRITE ESTVFLE 

RECORD 



••••Dl»»»*»««»« 

* WRITE 
ESTVFLE 
RECORD « 
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LAST RECORD 
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LABEL TO 
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LABEL 
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TRACK ON 
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•»D4*»***«* 
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• TO CYLINDER » 
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•SET TRACK CTR» 
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INCREMENT 
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* B3* 
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. ESTVFLE 
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TO WRITE 

ESTVFLE LABEL 



• SET STATUS * 
• AND RECORD * 
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» FULL * 


• WRITE * 
ESTVFLE 
• LABEL • 
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.** ESTVFLE *•. YES 
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.»* TIME "*. NO 
*. TO UPDATE .*... 

*. LABEL .* 
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X 

*#**H ].»•»*»«**»»» 
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( 


* READ VTOC * 
LABEL OF 
* ESTVFLE » 


• INCREMENT • 
•RECORD POINTER • 

• +1 • 


•*«*H3««*****«« 

• SVC 2 

• $$BESTVC 
» CHART GC 



SET RECORD 

COUNTER TO 

ZERO 
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RECORD ON 
. TRACK . 



INCREMENT 

RECORD NO. 

+ 1 
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Chart GF. $$BESTVE - Phase 5 of Tape Volume Error Statistics 
Refer to Chart 08. 



SSBESTVE 



RELOCATE 
ALL ADDRESS 
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•FOR TEBV TABLE • 
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STORE 

CYL, TRK 
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CORRECT 
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SAVE VTOC 
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IN LRLIM 



INCREMENT 

CYLINCER 
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WRITE 
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WRITE TO 
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'4E03I NO 
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READ VTOC 

FOR ESTV 

LABEL 



RECS LEFT 
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•.CHAIN.* 
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X'20« INTO • 
CORRECT CCW 

TO * 

•BREAK CHAIN* 



• RESTORE 
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• BIT 



READ 
VOL 1 
LABEL 
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FOR FILE 
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READ 
VTOC 
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TO INDICATE 
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WRITE 
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TO SHOW 

LAST REC 
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• SET CYL 
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•VTOC, REC = 



WRITE PARTIAL 
CHAIN OF 

RECS • 



INSERT X'6C« 
INTO CCW TO 
BREAK CHAIN 



INCREMENT 

TRACK 

PTR 





IN10 .♦. 


X 


H3 •. 


•**+H2* ******** 




SVC 11 • 


YES .* END 


PROB • 


...*. OF ESTV 


PROG • 


•. FILE 




«. . 



Jl *. 

"device 

A 
2311 



• NO 



#*K1»»»»»«» 

♦ SET • 
•DEVICE SWITCH* 

TO 
• INDICATE • 

• A 2314 • 



SET 
REC CTR = 
CCW CTR = 
• REC/TRK«8 
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Chart GG. $$BESTVF - Phase 6 of Tape Volume Error Statistics 
Refer to Chart* 08. 



#*»*A1**»*#** 
$$BESTVF 



FETCHED * 
BY 
.TRANSIENT.* 



» STORE CODE TO * 
•INDICATE FETCH * 
•BY ESTV UTILITY* 



RELOCATE ADDR 

CONSTANTS AND 

GET ADDRESS 

OF COMREG 



FETCHED •. NO 
BY 

.TRANSIENT.* 



SET CODE 

FOR FILE 

NOT CLEARED 



POINT TO 

LABEL 
CYLINDER 



* SET UP 
•MESSAGE 4E06I, 

* NO TEBV, FILE 

* NOT CLEARED 



F3 *. 

EOJ 



SEARCH FOR 
ESTV FILE AND 
READ FILE I/O* 



* SVC 11 
•RETURN TO ESTV 

* UTILITY *E5 



SVC2 
$$BESTVD 
CHART GO 



SVC2 
$$BESTVA 
CHART GA 



*E5 

ESTVPR,0R 
ESTVMT.OR 
ESTVFMT. 



EOC 

OR 

NRF 



♦SET UP MESSAGE 

♦ 4E05I, NO 

• ESTVFLE STD 

* LABEL INFO 



*. 


NO 




* FETCHED *. YES 


* SVC2 


'•YES 




•.TRANSIENT.* 
*"*NO 

X 
•»**»J3********** 

* MOVE FILE ID * 

* ANC SET * 

* PRINTER TO « 

* UTILITY CODE * 


* CHART GC 




««««J4«***» 

* SVC2 
...X* $$BESTVE 

* CHART GF 



SET STATUS 

TO FULL 

AND OPEN 
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Chart HA. $$BTERM - Reset Foreground PUB Ownership and Detach Attention Routine 
Refer to Chart 09. 



• A4 
RIO AND Rll ARE USED AS BASE REGISTERS 
FOR THE PIB TABLE AND COMMUNICATI CNS REGION 
RESPECTIVELY AND WERE SET BY A PREVIOUS 
PHASE. THEY SHOULD REMAIN UNCHANGED FOR 
THE NEXT PHASE. 



••••Bl»**»*»*» 

LOCATE 

SAVE- AREA 

POINTER FROM 

PIB-TABLE 

INTO R2 *A4 



• LOAD ADDRESS 
« OF PUB-TABLE 

• I NTO R5 AND 
•LENGTH OF PUB- 

• ENTRY INTO R6 



*««»C1* 

RELOCATE OUT 

AREA ADDRESS 

IN CCW 

ADDRESS 

AREA 



*»*»*D1********« 

* LOAD R13 

* WITH ADDRESS 

* OF UNASSIGN 
*RTN FOR BRANCH 

* ON REGISTER 



••««E1********* 

LOAD LOGICAL 
TRANSIENT KEY 

INTO R8 AND 
MODIFY IT FOR 
INDEXING *F2 



* LOAD ADDRESS 
*OF LOG-ROUTINE 
» INTO R14 FOR 

* BRANCHING ON 

* REGISTER 



ALL 

PUB'S 
SCANNED 



•••••D2********** 

» RESET PROPER * 
•OWNERSHIP FLAGS* 
•IN ALL PUBS, GET* 
•NEXT ENTRY, AND* 
♦ ADD R6 TO R5 • 



*»H1*****»» 
•MODIFY MASK* 

• TO RESET F2 ♦ 
•OWNERSHIP FLAG 

* IN ALL PUB- * 
•ENTRIES *H2* 



Jl *. 

.* IS *. 
.•FOREGROUND ». ON 
.CANCEL-SWITCH.*.. 
*. IN PIB .* 
*. *K3 .* 

**OFF 



***#K1******** 

SUPPRESS I/O 

BY CHANGING 

NOP INTO 

BRANCH AT 

LABEL LOG 



THE LOGICAL TRANSIENT 
KEY IS SHIFTED RIGHT 
CAUSING A DIVISION BY 
16 TO OCCUR. 



*G2 
THE BINARY BIT 
CONFIGURATION IN 
LTK +1 IS COMPARED 
TO A BINARY 32. 



*H1 
A 254 IS ANDED 
INTO IMMEDIATE 
DATA POSITION OF THE 
RESET OWNERSHIP 
INSTRUCTION MOD. 



RELEASES THE CORE 
PARTITION USED BY THE 
TERMINATED PROGRAM. 



♦•B3«****** 

* OR INTO 

PIBPUBAS 

TERMINATOR 

WORKING 

•INDICATORS 



C3 •. 

.•NORMAL «. 
.* EOJ SET 
.CANCEL-CODE= 



* GET JOB-NAME * 
♦FROM FOREGROLND* 

* SAVE AREA * 



.* DUMP *. 

.* ISSUED *. YES 
•WITH SUBTASKS.*.... 
•.ATTACHED .* 



CS1CI 

PROGRAM 

COMPLETED 



E3 *. 
.* IS *. 

* ATTENTION 

ROUTINE 
•.CANCELED . 



••F3******* 

•SET A X'07'* 
♦IN DISPLACE- • 

MENT AREA OF 
•PUB AS DETACH* 

* MASK • 



CLEAR RO 
TO ZERO TO 
DISABLE I/O 



SVC 22 

SEIZE 

CONTROL 



***J3******** 

MOVE 

DETACH-MASK 

INTO 

PIB-FLAG 

*J2 



SETUP 

***«»EA**** ****** 

* GET ADDRESS * 
*OF TAPE-ERROR- * 

* BLOCK TABLE, * 
*IF ANY, INTO R2* 



.« SHOULD «. 

. ASSIGNMENTS .* 
*.BE RESET .» 



*K3 
THIS SWITCH IS IN THE 
PIBPUBAS-BYTE IN THE PIB. 
ON INDICATES I/O CANCEL 
IN THE TERMINATOR. 
SUPPRESS ALL I/O FROM 
NOW ON TO AVOID A 
CANCEL-WITHIN-CANCEL 
LOOP IN THE SYSTEM. 
SET ON BY PHASE 
$$BEOJ. 



*«H4******* 

* AND INTO * 
•PIBPUBAS THE * 

* BG AND FG END 
OF TERMINATION* 

* SWITCHES * 



SVC 22 

RELEASE 

CONTROL 



* SVC 11 * 
•RETURN TO TASK * 
•SELECT IN SUPVR* 
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Chart HB. $$BTERM - Reset JIBs for I/O Device of Terminated Program 
Refer to Chart 09. 



•ZERO R5 AND R7 
♦AND GET SYSTEM 
* LUB INDEX FOR 
*THIS PARTITION 



END OF 
SYSTEM 
LLBS 



«**»»C1»*******»* 
« CALCULATE LUB « 
•TABLE ENTRY AND» 

* PUT SIZE OF ♦ 

* TABLE TO BE » 
•SCANNED INTO R7» 



♦C2 
ON FIRST PASS, TAKE 
SYSRES BRANCH, ON 
NEXT PASS, TAKE 
SYSREC BRANCH. 



SET COUNTER 

TO BYPASS 

SYSREC 



• B2* 
DONE 



***«*D1*»****»»*» 
•LOAD START ADDR» 
•OF LUB TBL INTO* 
•R5 AND GET END * 
♦ADOR OF TBL BY ♦ 
♦ADDING R5 TO R7» 



SET TABLE 

ENTRY LENGTH 

IN R6 FOR 

BRANCHING 

ROUTINE 



•02 
AS THE LUB TABLE IS 
SCANNED BEGINNING 
WITH SYSRDR.A SERIES 
OF BRANCH INSTRUCTIONS 
AND CONDITION CODES 
ARE SET AND RESET TO 
PERMIT UNASSIGNING 
ALL LOGICAL UNITS 
EXCEPT SYSLOG, SYSRES 
AND SYSREC. 



ON FIRST PASS, SET 
RESSW TO BR FOR SYSLOG. 
ON SUBSEQUENT PASSES, 
SET RESSW TO NOP. 



RECSWTCH .♦. 

D3 ♦. 
.•SYSRES •. 
.* OR SYSREC «. 
*. LUB 

*. «C2 .• 



««E3***«»»« 
•SET SWITCH • 
AT RESSW • 
FOR SYSREC 

(NOP) • 



•SET SWITCH 
« AT TEST 

FOR SYSREC 
• SCANNED 



#«»F1«»«*««*» 

SET COUNTER 

IN R4 TO 

AVOID 

UNASSIGNING 

SYSLOG 



• SET SWITCH 
AT RECSWITCH 

• FOR SYSREC 



.« LAST • 
.JIB ENTRY IN 
•. CHAIN .♦ 



• •«««F5«">"«"» 

• LCAD PCINTER • 
•TC FIRST ENTRY • 

X«OF CLD FREELIST* 
» INTC R8 FRCP • 

• FAVP • 



.• HAS * 

SYSREC 
LUB BEEN 
. SCANNED 



»»«G4******* 

SAVE CATA 

IN R9 BY 

LOADING IT 

INTO R2 



PUT CECUEUED 
JIBS GN THE 
FREELIST 



HI *. 

.♦SYSLOG,*. 
.* SYSRES OR ». NO X 
». SYSREC •• 


TEST1 .•• 

H2 •. 

.** ANY **. YES 


DEQUEUE 

•**#«H3««»«»««» 
• ZERO R9, PICK 
•UP JIB POINTER 


: 


X 
««*»»H4»»«»«««« 

• ZERO R9, AND 

• SET UP NEW 

• JIB POINTER 

• IN R<3 

• *J5 


** 


« 5 • 


♦. LUB .* 


'♦NO 

♦ 5 *..'. 

DEQUEUED X 

*****J2********** 

♦ UNASSIGN ♦ 

♦ THE LOGICAL ♦ 

♦ UNIT ♦ 

••**•*****••***•* 


• IT INTO 

♦ FRLSTBEG 

Ix 
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I 




»J5 


X 

»*»** J I********** 

♦ SET COUNTER ♦ 

• TO 2 TO « 

• BYPASS * 

♦ SYSRES * 


CHAIN X 

• ACCESS THE * 

• JIB ENTRY AND • 

• ZERO OUT THE ♦ 

• JIBS FIRST ♦ 

• THREE BYTES * 




PREVIOUS JIB ENTRIES 
4TH BYTE. 



•SET SWITCH 
AT RESSW 
FOR SYSLOG 
• E2 



♦ K5 
THIS IS THE JIB POINTER 
TO THE CLD FREELIST. 
STORE BYTE POINTED TO BY 
FAVP INTC ATH BYTE CF 
LAST JIB ENTRY CECUEUED 
ANO REPLACE THE eYTE 
WITH CCNTENTS OF 
FRLSTBEG. 
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Chart HC. $$BTERM - Get TEB Statistics and Reset TEBs 
Refer to Chart 09. 



***A1********* 



**»B1******* 

LOAO BASE 

ADDRESS OF 

PUB-TABLE 

IN R12 



*»***C1*»****** 

* SET LENGTH 

* OF HEADER 

* MESSAGE INTO 

* BYTE COUNT 

* FIELD OF CCW 


* 
• 










* 1 








• • 


X 

•****D I ******** 

* LOAD LENGTH 
» OF PUB-ENTRY 

* INTO R9 FOR 
•INCREMENTATION 


; 






Ix 








X 
CONTSCAN .«. 

El *. 

.* END ». 

.* OF * 

*. PUB-TABLE 

*. R12=256 .* 

**NO 


. YES 

X 

*HA * 
* G5* 

• • 








UNASSGN 





.* 1ST * 

NO .* TIME 
...*. THROUGH 



«*C4******* 

* RESET * 
•HEADER SWITCH* 

* TO X'FO* FOR 
* BRANCH AT * 

• LABEL NOP • 



••«*B5«*«****« 

LOAD ADDRESS 

OF NEXT 

BYTE IN OUT 

AREA INTC R4. 
ZERC R5 



GETBYTE 

••••*C5 •***«*** 

* INSERT 

* BYTE IN THE 

* TEB-ENTRY 

* USING R3 

* INTO R5 



SET LP 

SECOND 
HEADER 



G2 *. 
.* PUB *. 

.•BELONGS TO • 
.FOREGROUND 2 
*. JOB -» 



HI •. 
.* PUB •. 

.♦BELONGS TO 
.FOREGROUND 1 
*. JOB 



GET 

DEVICE 

TYPE 



**«*G3********* 
MULTIPLY TEB- 
ENTRY POINTER 
FROM PUB BY 6 
ENTER PRODUCT 
INTO R7 



•••*H3**<***** 

ADD R2 AND 

R7 TO ACCESS 

TEB-ENTRY 

ADDRESS 

*K3 



..X 



SKIPHDR 

#»**«G 4** ******** 

* CLEAR HEADER * 
*1 TO ALL BLANKS* 

* AND MAKE * 

* CHANNEL AND * 
•UNIT PRINTABLE * 



**««H4******* 

SET LOOP 

COUNT BY 

LOADING Rl 

WITH A 5 



LOAD POINTER 
TO SECOND 

BYTE IN 

TEB-ENTRY 

INTO R3 



•*»D5***«*«« 

CONVERT 

DATA IN R5 

TO PACKED 

DECIMAL 



*««*E5««««**««« 

UNPACK AND 

MCVE THE 

CONVERTED 

BYTE TO CUT 

AREA USING R4 



LCAC ADDRESS 

OF NEXT 

TEB-BYTE BY 

ADDING 1 TO 



•••*G5 •••****** 
INCREMENT R4 
BY 4 TC PCINT 

TG NEXT POS 
TC BE USED IN 

OUTPUT AREA 



H5 *. 

* ALL * 

BYTES 

CHECKED 



NCVE ZEROS 

TO 

TEB-ENTRY 



•»*K2******* 

ADD R9 TO 

R12 TO GET 

NEXT 

PUB-ENTRY 



*K3 
R2 CONTAINS 
THE ADORESS OF 
THE BEGINNING 
OF THE TEB-TABLE. 
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Chart HD. $$BTERM - Print Message and TEB Statistics Subroutine 
Refer to Chart 09. 



LOG 



LOAD ADDRESS 

OF LUB TABLE 

INTO R4 



.» CANCEL 

KITHIN 

*. CANCEL 



»**03**«***»* 
SET LOGICAL 
UNIT NUMBER 

AND CCW- 

ACDRESS IN 

CCB 



CLEAR 

OUTAR 

TO BLANKS 



*«*#*F3* »**««*»• 
» MOVE APPRQ- 
*PRIATE MESSAGE 

* INTO OUT AREA 
» PUT CCB ADDR 

♦ INTO REG 1 



SVC 

PRINT 

A LIN£ 



*«*«J3****»*»*« 

RETURN 

TO ADDRESS IN 

LINK REGISTER 
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Chart JA. $$BILSVC - Prepare Information about Cancel Cause 
Refer to Chart 11. 



»*»A1**«*»#» 

$$BILSVC 

♦ A3 



• A3 
REG 10 AND REG 11 ARE 
INITIALIZED BY A 
PREVIOUS PHASE TO 8E 
USEO AS BASE REGISTERS 
FOR PIB-DSECT AND 
SUPVR COMREG DSECT, 
RESPECTIVELY. 



IJBSVC33 

♦»*#*B1*»»»##«#* 

♦ SAVE PTR TO 
♦COM REG XTNSN, 

♦ SET R2 WITH 

♦ ADDR OF PRINT 

♦ FOR BAL 



•*C1»****** 

SET R3 

WITH ADDR 

OF TERM 

TO CALL 

DUMP 



GET ADDR 

OF LOGICAL 

TRANSIENT 

SAVE AREA 

INTO R9 



LOAD 

ADDR OF 

THE PHASE 

NAME INTO 



R7 



C2 ♦. 

SYSLOG 

. SYSLST 
♦ . . 

"•NO 



**••* 02 ♦•♦♦♦♦♦♦• 

♦ STORE THE 
♦SYSLOG LOGICAL 

♦ UNIT NUMBER 

♦ IN OUTPUT 

♦ CCB 



*•*•*£ 2 ♦♦*»*»♦♦♦ 

• STORE 
•ADDR OF SYSLOG 

• ERROR MESSAGE 

• CCW IN CCB 



ONLIST X 

♦ ♦•••(^♦♦♦••♦♦♦^ 

♦ SET A BYTE 

♦ COUNT OF 120 

♦ IN ERROR 

♦ MESSAGE CCW'S 



• RESET JOe • 

CTRL SWITCH IN^ 

• CCMM REG FCR 

• SVC UPDATE • 

IND AND CATAL 



GET SYSTEM 
LUB INDEX 
FOR THIS 
PARTITION 



• «E5"««««« 

♦SET CANCEL ♦ 
♦BIT IN JCSWO 

FOR JCB 
♦ CONTROL 



INITIALIZE 

MESSAGE 

AREA 



PRINT ERROR 

MESSAGE ON 

SYSLOG 



CALCULATE 

LUB TABLE 

ENTRY 



• •••^^•♦♦♦♦♦♦♦^ 




MOVE ILLEGAL • 




SVC MSG TO • 




OUTPUT AREA • 




AND SET COUNT ♦ 


* 


FIELD IN CCW ♦ 




. •*•• 




• ♦ * 




...♦ JC ♦ 




» F2* 






Oi 


X 


#«»»*H1 ♦♦♦♦♦♦♦♦♦♦ 


* 


CLEAR MSG • 


* 


AREA AND ♦ 




RELOCATE DATA ♦ 




ADDRESS IN ♦ 


li 


CCW'S • 



.♦ IS 

SYSLST 
♦.ASSIGNED 



SETLOGUN X 

♦ STORE LOGICAL 

♦ UNIT NUMBER 

♦ CF SYSLST IN 

♦ CCE ANC 

♦ ZERC REG 5 



♦ GET SYSLST ♦ 

♦ PUB-TABLE ♦ 

♦ DISPLACEMENT ♦ 

♦ IN REG 5 FROM ♦ 
♦SYSLST PUB-PNTR^ 



POINT R4 * 

TO THE • 

LUB TABLE • 



LOAD 

REG 6 

WITH 

PUB-TABLE 

ADDRESS 
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Chart JB. $$BILSVC - Select I/O Device and Prepare to Output a Message 
Refer to Chart 11. 



*B2 
REG 5 + REG 6 
EQUALS REG 4. 



••••*B1******** 

* LOAD AODRESS 

* OF SYSLST 
» PUB ENTRY 

* INTO REG 4 
» «B2 



••••CI******** 

GET SYSLST 

DEVICE TYPE 

FROM 

PUB TABLE 



Dl *. 
* IS * 

DEVICE 
A 

PRINTER 
*• •* 

'•YES 



****E1********* 

LOAD CARRIAGE 

CONTROL CCW 

ADDRESS 
INTO REG 1 



***»F1«**«««»»» 
STORE MESSAGE 
CCW ADDRESS 

IN CCB 
FROM REG 1 



LCAD TRANSFER 

ADDRESSES IN 

TIC CCW'S 



SET DATA 
ADDRESS IN 
OUTPUT CCW 



»••*••*••••* 



••••HI********' 

LOAD ADDRESS 

OF $$BDUMP 

TRANSIENT 

IN REG 1 



SVC 2 

$$BDUMP 

CHART KA 



E2 * 
TAPE 



•••»F2 ******** 

LOAD ADDRESS 

GF FILE 

PROTECTION 

SENSE CCW 

INTO REG 5 



D3 *. 

SYSLST 
DISK 

**NO 



*»•» 
FGTAPE X 

•••»»E3********»» 

* LOAD CCW'S * 

* CONTAINING • 

* TAPE ERROR * 
« MESSAGE * 

* INTO REG 1 * 



•»***F 3** ******** 

* LOAD ACDRESS * 

* OF THE * 

* CCW'S IN * 

* REG 1 * 



DKTYPE X 

****»C 4* ******* 

* LOCATE AND 

STORE SYSLST 

DIB-ENTRY 

ADDRESS IN 

REG 5 



.X* 



*«•••••• 



LCAD CUTPUT 
CCW ADDRESS 
INTO REG 1 



SYSLST 
EXTENT 
FILLED 



STORE 

SEEK ADDRESS 

IN CCW 



***G2******** 

STORE SENSE 

CCW AODRESS 

IN MESSAGE 

CCB 



SENSE DATA 



»»»G 4** *•»••» 

SET SEEK- 

ADDRESS AND 

COUNT FIELD 

IN OUTPUT 

AREA 



**«H4*« ••»••• 
SET SEARCH- 
FIELD 
BY REDUCING 
THE RECORD 
NUMBER BY 1 



J 2 *. 






* IS *. 






TAPE 




NO 


FILE 






PROTECTED. 


» 














X 


• YES 




•••• 


." 




• 
* 2 


X 






• ••• 




•••• 



••••J4*« •«••••* 

SET SEARCH 

ADDRESSES IN 

SEARCH, AND 

SEARCH1 CCW'S 



**F5« 

* SET NOP « 
SWITCH FOR 

BRANCHING 
SECCNC TIKE 

• THROUGH « 



« CCW ACC 

* INTO OUTPUT 
♦CCB FROM REG 1 



•••••H5«********* 
♦PRINT JC* 
»—•—•-•-•-•-•— •->» 

* ERROR MESSAGE * 

* ON SYSLST • 



••••»J5« 

* MODIFY OUTPUT 

* AREA POINTER 

* AT LABELS LA 

* AND MVC FOR 
•2ND LINE PRINT 
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Chart JC. $$BILSVC - Message Initialization and Output Subroutines 
Refer to Chart 11. 



• •••A ].••••••••• 

* OVLAY * 



OVLAY 

»*»*#B1 *•«♦••»*♦ 

• MOVE JOB NAME 
» FROM LOGICAL 
•TRANSIENT SAVE 
•AREA TO OUTPUT 

♦ LINE 



*»»»BA« »»»•»»»• 
• PRINT 



.* IS IT 

'•.MAINTASK 



CHANGE WORD 
'JOB' IN TEXT 
LINE TO 'SUB* 



.* IS THIS • 
.A BACKGROUND 
♦. JOB .* 



m**E2* ******* 
MOVE BG JOB 

NAME FROM 

COMM REGION 

INTO TEXT 

LINE 



LOAD ADORESS 

OF CCB 

INTO REG 1 



* 


WRITE 

A 
LINE 




'. NO 


X 
E4**"*. 

.«* I/O **♦ 

COMPLETED 



PHASE 
NOT FOUND 
.(REG 0=0». 



• GET PHASE 
•NAME FOR WHICH 

• THE SVC WAS 

• ISSUED 



•*»*F4 »»»••»*»• 

• EXIT TO 

• AODRESS IN 

• LINK REGISTER 



*SVi 



•*G1 »••**••»♦» 
LOAD THE « 
ADDRESS OF * 
THE ILLEGAL • 
.C INSTRUCTION* 
IN WORK AREA • 



»»#«H1 ***»**»•* 

UNPACK THE 

ADDRESS TO 

PREPARE FOR 

PRINT IN HEX 

AND TRANSLATE 



******** 



»*»»»J1 ****•*••*• 
• UNPACK THE • 
» ILLEGAL SVC ♦ 
•CODE TO PREPARE* 
» FOR PRINTING ♦ 
« AND TRANSLATE * 



*JA • 
• Hl« 

• * 

RELOC 
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Chart JD. 



$$BPSW - Prepare Canceled Program's PSW for Output Message and PIOCS 
Subroutine 

Refer to Chart 11. 



* MOVE 120 INTO « 
•BYTE COUNT AREA* 
•OF MESSAGE CCW « 



BACKGROUND 



♦•♦B4******* 

GET SYSTEM 

LUB INDEX 

FOR THIS 

PARTITION 



LOAD ADDRESS 

OF PIB 

TABLE INTO 

REG 7 



*»»#*01********* 
♦INCREMENT REG 7 
*TO GET PNTR TO 
♦SAVE AREA FROM 

♦ LOGICAL TRANS 

♦ BUCKET 



**»£!**»«♦** 

UNPACK 

USERS PSW 

INTO MSG 

AREA 



MAINTASK WITH 
SUBTASK(S) ATTACHED 
ISSUED DUMP. 



*#C3******* 

* RESET JOB ♦ 
CTRL SWITCH IN* 

« COMMREG FOR 
* SVC UPDATE ♦ 

♦ AND CATAL * 



»«03«****** 
♦ SET * 

* SWITCH IN 
COMREG AS 

♦ CANCEL BIT 
FOR JOB CTRL* 



CALCULATE 

LUB TABLE 

ENTRY 



#»F1******* 
TRANSLATE 
USERS PSW 
INTO HEX 
DATA FOR 
PRINTING 



MOVE MESSAGE 

TO OUTPUT 

AREA 



SETLOGUN 

•♦♦*«F3 ********* 

* STORE LOGICAL 

* UNIT NO. OF 

* SYSLST INTO 

* OUTPUT CCB 

* ZERO REG 5 



#»*»»G3********** 

* GET SYSLST * 

* PUB TABLE * 
•DISPL INTO REG5* 
♦AS 8X(PUB-PNTR * 
•IN SYSLST LUB) * 



*F5*«*** 
PRINT 



LOAD ACDRESS 

OF CCB 

INTO REG I 



*H4 
REG5 + REG6 
EQUALS REG4. 



LOAD ADDRESS 

OF LUB TABLE 

INTO REG 4 



LOAD REG 6 
WITH ADDRESS 
OF PUB TABLE 



WRITE 

A LINE 

SVC 



»»»*J1^*»«#»#»» 

STORE ADDRESS 

OF MESSAGE 

INTO DATA 

ADDRESS OF 

OUTPUT CCW 



* LOAD ACDRESS * 
•OF SYSLST PUB- * 
♦ENTRY UNIT INTO* 

* REG 4 * 

* *H4 * 



•***K !**•***•• 

STORE CCW 

ADDRESS INTO 

CCB FOR 

PRINTING A 

LINE 



•••«K5«******«* 

EXIT TO 
ADDRESS IN 
LINK REGISTER 
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Chart JE. $$BPSW - Select I/O Device, and Prepare to Output a Message 
Refer to Chart 11. 



***Bl**»**«*« 

GET SYSLST 

DEVICE TYPE 

FROM 

PUB TABLE 



BATCHED 
JOB 
IN FG 



CI *. 
PRIMTER 



» 2 *.. 

BALR14 

•PRINT 

* MESSAGE 

* ON 

* SYSLST 



D2 « 
TAPE 



C3 ». 

SYSLST 

DISK 
*. • 

"*N0 



• LOAD FIRST 

• BYTE FOR 

• TAPE OUTPUT 
» INTO DATA 
•ADDRESS IN CCW 



LOCATE 
SYSLST 

DIB-ENTRY 
INTO REG 5 



SET CATA 
AODRESS IN 
CUTPUT CCW 



PUT ADDRESS 

CF FIRST 

CCW IN CHAIN 

INTO REG 5 



LOAD ADDRESS 
OF $$BDUMP 
INTO REG 1 



**«*•*»****« 



•«F1«»»»*» 

FETCH 

$$BDUMP 

CHART KA 



TRANSLATING SYSTEM 
DUMP-CHART KA. 
STANDARD SYSTEM 
DUMP-CHART LF. 



**»*E2*«****»* 

LOAD ADDRESS 

OF FILE 

PROTECTION 

SENSE CCW 

INTO REG 5 



•**F2»*»»»»*» 

STORE SENSE 

CCW ADDRESS 

IN OUTPUT 

CCB 



«*«E3«*«*«*»* 

PICK UP 
CCW ADDRESS 

AND LOAD 
INTO REG 5 



STORE CCW 

ADDRESS INTO 

OUTPUT CCB 



SYSLST 
EXTENT 
FILLED 



#»»»*F A* #»**♦**» 

• SET SEEK 

* ADDRESS IN 
» CCW AND SET 
•COUNT FIELD IN 
« OUTPUT AREA 



»»»»G4***««*«* 
SET SEARCH 
FIELD IN CCW 
BY REDUCING 
THE RECORD 
NUMBER BY 1 



.* IS ». 

TAPE 

FILE 

.PROTECTED. 



SET SEARCH 



LOAD 
TRANSFER 
ADDRESSES 
IN TIC CCWS 
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Chart JF. 



$$BPCHK 
Device 

Refer to Chart 11 



Prepare Information for Message about PC Cancel and Select I/O 



.•JG-C1.G2 



»A1»»**»»*» 
$$BPCHK 



» GET ADDR OF 
•LOGICAL TRANS- 
» IENT BUCKET 
•FROM PIB TABLE 



» MOVE JOB NAME 
♦FROM PROB PROG 

• SAVE AREA TO 

• FIELD CALLED 

• TXTNAM 



*#**F1« 

CHANGE WORO 

•JOB' IN TEXT 

LINE TO 'SUB' 

TO DENOTE 

SUBTASK 



##»«G1*»****»** 
GET LAST 4 
BYTES OF OLD 
PSW AND SAVE 
AREA AND PUT 
INTO REGS 7-8 



••••*H1********** 
•SHIFT REG 8 TO • 

• ISOLATE ILC • 

• DOUBLE INST * 

• LNG TO CHANGE • 
•HALFWDS TO BYTE* 



•SUB REG 8 FROM 

• REG 7 TO GET 

• ACTUAL INST 

• ADDR WHICH 

• CAUSED INTRPT 



•UNPK INST ADDR 

• PUT RESULT IN 
•AREA NAMEO LCN- 
» WILL BECOME 

• PART OF MSG 



IS IT 

BACKGROUND 
.MAINTASK . 



IS IT A 

BACKGROUND 
JOB 



MOVE BG JOB 
NAME FROM 
CQMREG TO 
TEXT LINE 

FOR OUTPUT 



»#»♦* A3 «*»•»•»«*» 
•SHIFT REG 7 TO • 

• ISOLATE CONO • 
•CODE CHANGE TO • 
•PRINT DCML STOR* 

• IN MSG AREA • 



»**»»B3***»«»«»«« 
•ZERO REGS 8, 6,» 
•GET INTRPT CODE» 
• FROM CLC PSW • 
•DOUBLE CODE TO • 
•INDEX MSG TABLE* 



•GET MSG LENGTH • 
•AND DISPLACEMNT* 
•FROM TBL TO USE* 
•WITH TXTAB FOR * 
•APPROPRIATE MSG* 



••••*D3**«*»*«*«* 

* BLANK AREA OF * 

* 91 BYTES FOR • 

* OUTPUT MSG • 
♦ASSEMBLY. WIPES* 
♦OUT PREV INSTS * 



**«»«E3»«*«»»»*« 

• BLANK AREA OF 

• PREV USEC TBL 
•FOR USE AS 2ND 

• OUTPUT MSG 

• AREA 



• F3* 



» USE EXEC INST » 
•TO MOVE MSG TO • 

♦ OUTPUT AREA • 
•REGS8 ANC 6 HAC^ 

♦ MSG ACDR, LNG ♦ 



»#»»«G3*«******** 
*PT REG 8 TO OUT* 
•PUT AREA, INDEX* 

* BY MSG LENGTH * 

* MOVE NEXT * 
•PART OF MSG IN * 



».»«»H3* 
♦LOAD DATA ACDR 
♦LABELED LSLINE 
♦INTO CCWLG AND 

♦ CCWLS VIA 

♦ REG 1 



»»»*»J3»»*« •••*«• 
♦PUT APPROPRIATE* 
•DATA ACDRS INTO* 
•CCWL61, CCWSKP,* 
•CCWLOG, CCWLST,* 
•CCWLGO, CCWLG3 * 



*•»»*« 3«**»*»»*« 
*LOAC LUB TABLE 

* ADDR IN REG 4 
*LOC SYSLOG AND 
♦TEST IF SYSLOG 

* IS ASSIGNED 



.•SYSLOG ». 
♦AND SYSLST 

THE SAME 
♦. DEVICE . 



*«*«C4***»»»*** 
STORE SYSLOG 
SYM UNIT ADDR 

AND ADDR OF 
CChLG IN CCB 






* LCAD ADDR 
•CCW APPRCPR 
«TC CEV IN ~ 
♦STCRE CCW 

* IN CCB 



CF « 
IATE* 
EG 1* 

CCR * 



. X.*JG-F4, J1.K3 



EA *. 

BG 
PROGRAM 

'"•YES 



•RESET CATAL AND* 

* SUPVR UPDATE * 
« BITS IN *. 

* JCSW1 * 



LCAC ACDR IN 

REG 1 OF 

NANE 

1$BDUMP 



«*E5«**««* 

SVC 2 

JIBDUMP 

CHART KA 



•TRANSLATING SYSTEM 
DUNP-CHART KA. 
STANCARC SYSTEM 
DUPP-CHART LF. 



*»«*«H4******«*»* 
•STORE SYM UNIT » 
•ADDR FOR SYSLST* 
•IN CCB ZERO REG* 
* 5 AND LOAD IN * 
•PUB ENTRY PNTR • 



•***» J 4*** •••***• 
*CALC PUB TABLE * 
♦DSPLT IN REG 5 • 
•ADD PUBTAB ADDR* 

♦ IN REG 6. GET • 

* SYSLST ENTRY ♦ 



SYSLST 
DEVICE A 
. PRINTER 



•SET CANCEL • 

BIT IN JCSWO 

FCR JCB 

CCNTRCL 



GET SYSTEM 
LUB INDEX 
FOR THIS 
PARTITICN 
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Chart JG. $$BPCHK - Set Up for I/O and Output the Message 
Refer to Chart 11. 



YES .* IS 
...*. SYSLST 

*. A DISK 



♦STORE DATA ADDR* 
*0F TPLINE INTO * 

* CCWTP VIA » 

* REG1 « 



•STORE DATA ADDR* 
* OF TPLN INTO * 
•CCWTAP VIA REG1* 
» LOAD ADDR OF ♦ 
« CCWTP IN REG1 * 



»#»*#B2********* 

* MOVE COUNT ID 
» INFO FROM 

* CURRENT ADDR 
•TO OUTPUT AREA 

* AS CCHHRXDD 



»*»**C2****»»**«* 
•MOVE CCHHR FROM» 
•CURRENT ADDR TO* 
•SRCHBCKT FIELD * 

• REDUCE RECORD • 

• NO. BY 1 • 



• LOAD REDUCED • 

• SRCHBCKT ADDR ♦ 
•INTO SEARCH CCW* 

• AND SEARCH1 • 

• CCW • 



••***E2********* 

♦ STORE ADDR OF 

• SEARCH CCW IN 
•TIC CCW AND OF 

• SEARCH1 CCW 

* IN TICI CCW 



»»A3««*»»«« 
•MODIFY INST« 

•AT MVC TO USE* 
DKLN AREA AS 

•MSG 2ND LINE * 
♦OUTPUT AREA* 



•»B3******* 

•MODIFY INST» 

•AT LA SO DKLN» 

•ADDR WILL LOAD 

•IN CCW AS NEW* 

* DATA ADDR * 



««*«A5«««*« 
PRINT 



LCAD CCB 

ADDR INTO 

REG 1 



• 


I/O * 


YES 




OPERATION 






.COMPLETE .* 








»NC 






X 






► *E5*«* 




SVC 7 




PROB PROGRAM 






WAIT 











DKTYPE X 

*»***GL********* 

* LOAD ADDR OF 
•DIB INTO REG 5 
•INDEX 72 BYTES 

* TO POINT TO 

* SYSLST DIB 



•••••F2**«******* 

•STORE DATA ADDR* 
•OF DKLINE OUTPT* 
• AREA IN WCKD • 
•CCW. LD ADDR OF* 
•CCWDK IN REG 1 * 



.* SWITCH *. BR 

.BRANCH ON 2ND.*.... 
♦.TIME THRU.* 



. * *. 




# » 


» # 


• 


•««F5«***«*«*« 


.» IS I/O *. NO 






*. NO 




RETURN 


♦.DEVICE A TAPE.* 


...X* 


. BATCHED FG .* 




VIA 


*. DRIVE .* 




*. 


.* 


* 


R14 


**». .•** 




* 


*. .* X 






• YES 






•YES ••••• 

• JF • 

• D5* 
X * * 

* * TERM 






X 






• 3 * 






*«**«G3 ********** 












* STORE ACDR OF * 












* INST LBLD ON- * 












* LIST INTO CCW » 












* TO RCV SENSE * 












♦DATA FROM TAPE * 













#*«»*H1********»« 
•COMPARE CURRENT* 
* ADDR WITH END * 
•ADDR IN SYSLST * 
*DIB FOR EXTENT * 
♦FULL CONDITION ♦ 



SET SWITCH 

AT NOP TO 

BRANCH 



• STORE ADDR 

• OF CCW SENSE 

• IN CCB 



SYSLST 

EXTENT 
FILLED 



• STORE ADDR 

• OF CCW FROM 
•REG 1 INTO CCB 



SENSE FOR 
FILE PROTECT 
ON TAPE DRIVE 



• ••♦^•♦♦♦♦♦♦♦♦^ 

STORE CURRENT 

ADDR FROM 

SYSLST DIB 

INTO SEEK 

CCWDK 



* WRITE FIRST 
•LINE OF MSG AS 

• REC ON DISK 



♦ TAPE 

DRIVE FILE 
•.PROTECTED. 
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Chart KA. $$BDUMP - Translating System Dump, Monitor Background/Foreground Program Dump 
(Part 1 of 3) 

Refer to Chart 10. 



SAVE DUMP 
START 
TIME 



POINT REG 11 

AT BG COMREGi 

REG 9 AT THE 

PIB TABLE 



•***D1******** 
MOVE UK TO 
TASK TO SAVE 
AREA - TID 
(ASSUMES NO 
ASYNC PROC) 



* CLEAR HIGH * 

* ORDER BYTE » 
♦IN REG 9, POINT* 
♦REG 10 TO TASKS* 
♦ENTRY IN PIBTAB^ 



DDR IN REG 6 



♦ TURN ON ♦ 

CANCEL FLAG ♦ 
IN PIB ASSIGN 
FLAG BYTE ♦ 



♦MOVE X f 10' ♦ 

♦ CANCEL CODE ♦ 
INTO PIB FOR * 

* NORMAL EOJ * 



***#*B4»»****« 



NOTIME X 

* GET BG JCB 

* NAME. IMT 

« PARTITION AND 

* CCMREG ACDR 

* HEADERS 



BLANK OUT 

TIMER 
SAVE AREA 



***F1*^«^** 
POINT REG 2 

TO COMREG 

EXTENSION, 

GET TASK ID 

IN TID 



*#»»#H1»**^**»** 
♦POINT REG 3 TO 

♦ 2ND PART OF 
♦PIB TABLE, ADD 

♦ TID VALUE TO 
♦POINT TO ENTRY 



**»**Ji*« ******** 
♦GET MAINTASK'S ♦ 
♦SAVE AREA ADDR ♦ 
♦FROM MAINTASK'S* 
♦PIB INTO REG 9 ♦ 
♦ENTRY IN PIBTAB^ 



NOAP 

*****J2* 

♦GET MAI 

♦SAVE AREA ADDR ♦ 



CANCEL 
MACRO 
CALL 



DUMP 

MACRO 

CALL 



F3 ♦. 

.♦ DUMP *. 

SWITCH IN 

COMREG 



TIMER 

FEATURE 

.SUPPORTED. 



♦CANCEL 
ALL 
MACRO 
CALL 



J3 *. 

.♦ IS IT *. 

YES .♦A MAINTASK ♦ 
...♦.CANCELLATION 



**F4**^*^*« 

CALCULATE 

TIME AND 

TIME OF 

DAY 

••*******•• 



CONVERT TO 

PRINTABLE 

FORMAT 



*****H4** ******** 



«**C5«^"**» 

UNPACK AND 

TRANSLATE 

CURRENT 

COMREG 

ADDRESS 



***«*D5***^***« 

♦ IMT LBLTYP 

♦ HEADING. 

♦ UNPACK ANC 

♦ TRANSLATE 
♦LBLTYPE LENGTH 



«««E5*""" 

INITIALIZE 

CE 

HEACER 



SET UP FCR 

NC FLOATING 

POINT, CE 

AREA DUPP 



****G5* ******** 

GET SUPVR 

END ACCRESS. 

DIVIDE BY 4 

TC GET NUM OF 

WDS TO CUPP 



♦ E5^ 
CALLEOJ 



« 


MOVE TO 


♦ 


* 


GET START * 




SAVE 


• 


* 


ACCR IN « 


* 


AREA 


• 


« 


REGISTER 14 * 


* 




* 


» 


* 




X 










**•* 










* * 






X 




* 4 * 










* * 






J5 ♦. 




••** 




NO . 

X 
••*•• 

♦ KB * 

• F2* 
• * 


♦ FP *. 

FEATURE .♦ 

'♦YES 
X 
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Chart KB. $$BDUMP - Translating System Dump, Monitor Background/Foreground Program Dump 
(Part 2 of 3) 

Refer to Chart 10. 



••••• 

•KA • 
• J5« 



»*»#B2»* *•**•*• 

MOVE 

INTO FLOATING 

POINT 

INDICATOR 

BYTE 



*****C2»****»* 

* MOVE FP 

* REGISTERS 

* TO SAVE 

* AREA 



•*E2**»»*»* 

SAVE 
FLOATING 

POINT 
REGISTERS 



STORSTRT X 

•****F2******* 
» INITIALIZE 
» PROGRAM 

* START DUMP 

* ADDRESS 



»»»*62******» 

GET UPPER 

LIMIT OF BG. 

ROUND TO 

EVEN BYTES 



YES .« 


LTK= 




X'10 




-BG- 






X 




***** 


*N 


*KC * 




* Fl* 


. 










AMOUNT 


X 








J2 






YES .»' 


LTK= 




X'30 




-Fl- 






X 


*. • 


***** 


*N 


*KC * 




♦ CI* 






X 








*KC 




« Bl 



Charts 135 



Chart KC. $$BDUMP - Translating System Dump, Monitor Background/Foreground Program Dump 
(Part 3 of 3) 

Refer to Chart 10. 



MODIFY 

FOREGROUND ID 

TO F2 



MODIFY DUMP 

HEADERS TO 

FOREGROUND ID 



*»B2*«»*««* 

* SET X'FO* * 

•AS INDICATOR * 

♦FOR NOT DOUBLE-* 

* DOUBLE WORD * 

« START ♦ 



♦STORE NUMBER OF* 

* WORDS TO DUMP * 

* AT LOCATION * 

* PWORDS * 



♦GET ADDRESS OF 

♦ COMREG IN 

♦ REGISTER 13 



* GET NO OF 2K * 
♦BLOCKS FROM PIB* 
♦AND CONVERT TO * 

♦ BYTES * 



H2* 



AMOUNT 

**»»«F1«**«***»** 
♦SUBTRACT REG 14^ 

♦ (START ADDR) ♦ 
♦FROM NUMBER OF ♦ 

♦ CORE BYTES ♦ 

♦ ALLOCATED ♦ 



•••♦Gl********» 
DIVIDE NUMBER 

OF BYTES TO 

DUMP BY 4 TO 

GET NUMBER OF 

WORDS 



♦GET ADDRESS OF 

♦ CE TABLE IN 

♦ REGISTER 13 



♦ DOES 

ADDR START 
♦.AT UNITS . 



ZERO UNITS 

POSITION IN 

ADDRESS 



♦ADD 2 TO NUMBER^ 

♦ OF WORDS TO ♦ 

♦ DUMP ♦ 



♦ MOVE TO ♦ 

CEIND AS 

INDICATOR 

FOR CE AREA 



♦GET END AODRESS^ 

♦ OF CE AREA IN ♦ 

♦ REGISTER 8 ♦ 



♦♦*«*K2 ♦♦•♦♦♦••♦♦ 

♦ SUBTRACT REG 13^ 

♦ FROM REG 8 TO ♦ 

♦ GET CE AREA * 

♦ LENGTH ♦ 



♦ DIVIDE LENGTH ♦ 

♦ BY 4 TO GET * 
♦NUMBER OF WORDS^ 

♦ TO OUMP * 



♦ SAVE CE START ♦ 

♦ ADDRESS AT ♦ 
♦LOCATION CEADDR^ 



.♦ DOES ♦. 

.ADDRESS START. 

♦.AT UNITS .♦ 

♦ . .♦ 



ZERO UNITS 

POSITION IN 

ADDRESS 



♦INCREASE NUMBER^ 

♦ OF WORDS TO ♦ 

♦ CUMP BY 2 ♦ 



♦ SET X'FO' ♦ 
♦INDICATOR FOR^ 

NOT DOUBLE- ♦ 
♦ OOUBLEWORD ♦ 

♦ START ♦ 



LTK = 
X«1C» 

-BG- 



♦♦•♦#C4^^ **♦♦♦♦♦ 

♦ GET SYSTEM 
♦INDEX FOR THIS 

♦ PARTITION AND 

♦ LOCATE SYSLST 

♦ IN LIB 



♦K*-D3,F3tH3,J3 



♦STORE NO. OF CE^ 

♦ WORDS TO DUMP ♦ 

♦ AT CEWORDS ♦ 



♦ ZERO REGISTER * 



.♦SYSLST ♦. 
.♦ ASSIGNED ♦. NO 
THIS .♦... 
♦. PARTITION. ♦ 



♦♦♦♦♦E4^*^* **♦♦♦♦ 

♦ DETERMINE PUB ♦ 

♦ ENTRY ♦ 
♦ASSOCIATED WITH^ 
♦SYSLST FOR THIS^ 

♦ PARTITION * 



♦CLEAR REGISTER 

♦ 12 - SET FOR 

♦ PRINTER DUMP 



G4 ♦. 

*SYSLST 
A 
TAPE 

"'♦NO 



».E5*^" 
SVC 2 
$$BECJ3 
CHART FL 



SYSLST 
PRINTER 



X 

♦ #J4^**** 

SVC 2 

$$BOUMPD 

CHART KJ 



TAPELST 

••••♦H5 ♦♦♦♦♦*♦♦♦♦ 
♦SET REGISTER 12^ 

♦ WITH 1 TC ♦ 

♦ INDICATE TAPE ♦ 

♦ DUMP ♦ 



SVC 2 
$$BOUMPB 
CHART KD 
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Chart KD. $$BDUMPB - Translating System Dump f Background/Foreground Dump on Printer or 
Tape (Part 1 of 2) 
Refer to Chart 13. 



• A2 
COUNTER FOR CCW 
MODIFICATION ROUTINE. 



*»«*B1 •»♦«*»*» 

POINT REG 3 

TO FIRST CCW 

IN CHAIN. 

LOAD 3 INTO 

REG 4 »A2 



L0A0R5 

*#**#C1»»*»#**» 
» ADD CONTENTS 

* OF REG 15 
« TO ADDR IN 

* CCW 



INCREMENT 

REGISTER 3 

TO NEXT 

CCW 



.« CCW *. NO 

.ADDRESSES ALL.*... 
•.MODIFIED .♦ 



•***B2 ********* 

SET X«01' 

MASK IN MVI'S 

FOR COMMAND 

CODE IN TAPE 

CCW 



SET TAPE 

CCW COUNT 
TO 121 



•*D2******* 
•INITIALIZE * 

• TEST FOR EOF 

ON TAPE AT 

* LOCATION 

* TESTEOF * 



••*»«B3********* 
•POINT REGISTER 

* 3 TO FIRST 

* LINE OF 

* REGISTERS IN 

* SAVE AREA 



***C3******* 

MOVE CE 

INDICATOR 

BYTE TO 

CESWITCH+1 



•*«**D3********* 

* MOVE CC WORD 

* AND START 
•ADDRESS INDICA- 

• TOR BYTES TO 

• SWITCHES ALSO 



»»»B4»»»»»»»« 

MOVE HEAOER 

FOR REGS 

8-15 TO 

OUTPUT AREA 



••••CA******** 

GET LOCATION 

OF REG 8 

FROM SAVE 

AREA - SAVE - 





X 




CLEAROPT X 




»»E2******»< 




•****E3********«* 


• 


RELOCATE 


* 


• CLEAR • 




CCW1 ADDR 




• PRINTER * 




FOR TAPE 




* OUTPUT * 




OUTPUT 




• AREA * 


* mM 


AREA 


* 


•••••••«••••••«•• 



*»*»F1*«»****** 

MOVE FLOAT PT 

INDICATOR 

BYTE TO 
FLPTSW+1 



Gl *. 

* IS 
SYSLST 
A 
TAPE 



**##H1«»*«*»*»* 

LOAD ADDR OF 

CCW1 INTO REG 

1 FOR 

RELOCATING 

CCB FOR TAPE 



»*««»F2******** 

* INIT CCB 

* WITH CCW1 

* ADDRESS FROM 

* REGISTER 1 



PRINTER 

**»**G2*****««« 

* LOAO ADORESS 

* OF CCB 

* INTO 

* REGISTER 1 



»***H2 ******** 

LOAD 8 INTO 

REGISTER 4 - 

WORD LENGTH 

INCREMENT 



PRINT HEAOER 



MOVEREG 

***«*G3***«****« 

* MOVE HEADING 

* FOR REGISTERS 

* 0-7 TO 

* OUTPUT AREA 



•#H3******* 
•SET UP C'0'» 
» -DBL SPACE 
•CHAR FOR TAPE- 
• AT LOCATION 
• TAPEOUT • 



EDIT AND 

PRINT 
REGS 8-15 



E4 *. 

• • 

FP 

FEATURE 



LOAD ADDRESS 

OF FP REGS 

SAVE AREA 

INTO REG 3 



**G4*»**»*» 

MOVE FP 

HEADER TO 

OUTPUT 

AREA 



»#»*J1»#»»*»*» 

LOAD ADDR OF 

TAPE OUTPUT 

AREA INTO 
REGISTER 4 



**J2 ********** 


••••J3«***«»«« 


INITIALIZE * 


CONVERT K 


REGISTER 7 * 




AS PAGE * 


EDIT AND 


COUNT • 


* PRINT 


REGISTER • 


REGS 0-7 







EDIT AND 

PRINT 

FP REGS 



• Bl* 
COMMRGN 
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Chart KE. $$BDUMPB - Translating System Dump f 
Tape (Part 2 of 2) 
Refer to Chart 13. 



Background/Foreground Dump on Printer or 



COMMRGN X 

•****B 1 ********* 

* MOVE COMREG 

* HEADER AND 

* ADDRESS TO 

* OUTPUT AREA 



X 
»*C1******* 
•MODIFY CCW1« 
•COMMAND CODE 
♦ TO X«ll»- 
•DOUBLE SPACE 



**»*D1*****«*« 

DECREMENT 

LINE CDUNTER- 

REG 2 - BY 

1 



WITCH .*. 


DDSWTCH1 .♦. 


B2 *. 


B3 ». 




.♦ CE «. 


.* CE ». NO 


.« AREA ». NO 


». AREA .♦... 


♦. DD-WORD .*.... 




». ADDRESS .* 






*. . • 


• . .» X 


• YES 


•YES ••• 




•KG 




* E 








. * 


. 


UNP 


X 


X 


*»**C2 ••••*•••*•» 


, ****C3*« < «******* 


PRI NT KH 


STORE5 KF 






SPACE 


EDIT AND 


1 « 


• PRINT CE • 


LINE 


AREA 


********••****• 






x! 


X 


EDITLBL X 


*»m**D2** ******** 


****D3»««******** 


* MOVE CE AREA • 


PRINT KH 


• HEADER TO • 




* OUTPUT • 


SPACE 


• AREA • 


« 1 • 



»**B4 ******** 
LOAD NUMBER 
QF WORDS TO 

DUMP IN 
REGISTER 8 



••••El******** 


PRINT K 


*—*-*-*—*-*-*-* 


PRINT COMREG 


• LINE AND 


SPACE 1 



PRINT 

CE 

HEADER 



***E3******** 

MOVE LBLTYP 

HEADER AND 

LENGTH TO 

OUTPUT AREA 



**F1******* 
•AND SWITCH1* 

* WITH X'OF' 
TO ALLOW FOR 

• TRANSLATE 



•**G1 ******** 
CLEAR REG 5 

FOR START 

AT LOCATION 

000000 



•••••F2 ******** 

* LOAD ADORESS 

* OF CE AREA 

* INTO 

* REGISTER 5 



***G2 ******** 

LOAD NUMBER 

OF WORDS 

TO DUMP 

INTO REG 8 



**C4***»**» 
•MOVE X'FO* * 
•INTO SETSW4- 
INIT SWITCH 
* FOR LAST 
• LINE EOJ * 



* RESET PRINT * 

• ROUTINE AND * 
♦ALIGN ADDRESSES* 



•***E4******** 

LOAD REG 13 

WITH DUMP 

COMPLETE 

RETURN ADDR- 

ENDJOB 



PRINT 

LBLTYP 

LINE 



**G3******* 

MOVE 

PARTITION 

HEADER TO 

OUTPUT 



AREA 

DD-WORD 

ADDR 



****G4******* 
STORES 

*-*— »T*— *—*—*- 

EDIT AND 

PRINT PP 

AREA 



•••**HI *****•**•* 

* LOAD REG 8 * 

* WITH NUMBER * 

* OF WORDS * 

* TO DUMP * 



•****H2 ********** 
•RESETRT KF* 
*—*—*-*—*—*—*—*-* 

* RESET PRINT * 

* ROUTINE AND * 
•ALIGN ADDRESSES* 



»*H4****** 

SVC 2 

$$BE0J3 

CHART FL 



EDIT AND PRINT 
SUPER * 
AREA 



***J2*» ****** 

LOAD REG 13 

WITH ADDR 



• FROM PRINT 



**J3****** 

GET PROG 

STARTING 

ADORESS 

IN REG 5 



• 2 * 



X 
**** 

• » 

* 3 * 
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Chart KF. $$BDUMPB - Translating System Dump, Reset Storage Print Routine and Edit a 
Line Subroutines 
Refer to Chart 13. 



*A3»««*« 
ST0RE5 



RESET M0VE32* 
» INSTR. TO 

ORIGINAL 
« LENGTH OF 



•RESET CORE * 
» STORAGE • 

RETURN SWITCH 
* -SWITCH3- * 

* TO NOP * 



»»»B2»*»*»**» 


• « 


•*»*«B3««««««««*« 


*»»*»B4***»«»**»« 


••B5«*««««* 


POINT REG 14 




* STORE LINE • 


» LOAD NUMBER « 


» RESET 


TO REDUCE8 




* ADDR FROM « 


» OF WORDS * 


* CORE RETURN 


FOR RETURN 




» REG 5 AT « 


» LEFT INTO * 


• -SWITCH3- 


AFTER 1ST 




« ADRBKT * 


* REGISTER 4 « 


« TO BRANCH 


LINE PRINT 




» FOR CONVERT • 


»•***•*•**••**••? 


* «„ ######## 



•»»«C2*«*»*«»« 

RETURN TO 

ADDR IN LINK 

REG 13 



•••C3««««*«« 

UNPACK AND 

TRANSLATE 

ADDRESS AT 

OUTPUT 



INCREMENT 

REG 5 TO 

NEXT 32 

BYTES 



«»C5««*«*«* 
•SET BYPASS 
-SAME- 
COMPARE 
-SWITCH4- 
• OFF 



REINITIALIZE 

LOOP COUNTER 

REG 4 WITH 



MOVE NEXT 32 

BYTES OF CORE 

TO BUCKET 



CLEAR PRINTER 

OUTPUT 

AREA 



» STORE START 
•ADDR AT ADRBKT 

* FOR UNITS 

• TEST 



EDIT AND 
PRINT 
LINE 



MULTIPLY 

NUMBER OF 

WORDS LEFT BY 

4 AND SUBTRACT 

1 FROM RESULT 



••••Fl**»*»»**» 

UNPACK AND 

TRANSLATE 

FIRST ADDRESS 

INTO OUTPUT 

AREA 



•«*»G1»*«*«»**« 

MOVE FIRST 24 

BYTES OF 

CORE TO 

BUCKET FOR 

CONVERT 



*»»«G2*«»»**** 

RETURN TO 

ADDR IN LINK 

REG 13 



REDUCE 
NUMBER OF 
WORDS TO 
DUMP BY 8 



»«F4»*»«*** 

* MODIFY « 
« MOVE32 INST 

TO MOVE THIS 
« NUMBER OF 

* BYTES »F5 » 



♦ •G4< 

• RESET * 
« SWITCH2 TO « 

•NOP TO PREVENT 
* REG 14 » 

• RETURN • 



NUMBER CF BYTES 
DETERMINED AT 
BLOCK E4. 



LOAD 6 INTO 

REGISTER 

FOR 6 WORD 

UNPACK 



OR FEWER 
WORDS 
. LEFT 



*»»**J1»»*#»#*#»« 
•POINT R3 TO 1ST» 
•BYTE FOR CNVRT ♦ 

• AND R6 TO • 

• BYPASS 1ST 2 * 

• WDS IN OUTPUT * 



.• NEXT ♦. 
32 BYTES 
= LAST 32 

. BYTES . 



INCREMENT 

REGISTER 5 

TO NEXT 

32 BYTES 



»»K3«*»««»* 

INCREMENT 

REG 5 TO 

NEXT 32 

BYTES 
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Chart KG. $$BDUMPB - Translating System Dump, 
Refer to Chart 13. 



Subroutine to Edit and Print a Line 



SUBROUTINE TO EDIT AND PRINT A LINE 

»*»*A1»******** *#*#A2*»*»** 

* CONVERT-4 * * CONVERT 



•**B1******* 
LOAD ADDR 
OF UNPACK 
WORK AREA 
INTO REG 3 



*#*B4*»*»*»* 

INIT REG 

AS LOOP 

COUNTER 

WITH 
VALUE 7 



CONVERT X 

*»»##C1**»***»* 

* LOAD ADDR OF 

* 1ST UNPACKED 

* WORD INTO 
» REGISTER 6 



•Dl» 



» POINT REG 

• TO FIRST 

« WORD IN 

» OUTPUT 



INIT UNPACK 

LOOP COUNTER 

REG WITH 

VALUE OF 

REG 4 



UNPACK AND 

TRANSLATE 

1 WORD 



»#F1« 
INCREMENT 
REG 6 AND 
REG 3 FOR 
NEXT WORD 



POINT REG 3 

TO BUCKET - 

1ST BYTE 

TO TEST 



LOAD TAB 

•«.#«E2*»***»**« 
» LOAD REG 6 
« WI TH ADDRESS 

* OF PRINTABLE 
« CHARACTER 

* TABLE-CHARTAB 



COMPHI .». 

F2 ♦ . 

. • CORE *. 
.♦BYTE HIGHER* 
*. THAN HIGH 
•.CHARACTER.* 



G2 «. 

. • CORE ». 
♦BYTE HIGHER*. NO 

THAN LOW .«... 
•.CHARACTER.* 



•*««F3«*««***« 
LOAD REG 6 

WITH ADDRESS 
OF NEXT SET 

OF PRINTABLE 
CHARACTERS 



MOVE A PERIOD 

OVER 

UNPRINTABLE 

CHARACTER 



♦ 1ST 

WORD EQUAL 
*. NEXT 



BYPASS 

-SAME- 
ROUTINE 



•*«»F4»»»**»»* 

INCREMENT 

REGISTER 6 

TO NEXT WORD 

TO COMPARE 



.• ALL •. 

• WORDS IN ♦ 

LINE 
•.COMPARED .* 



NEXTBYTE 

••♦♦•H2«««*«»«*« 

• INCREMENT 

• REG 3 TO NEXT 

• BYTE TO BE 

• TESTED 



*»»*J1»***»*#* 

LOAD 32 INTO 

REGISTER 

AS NUMBER 

OF BYTES TO 

SCAN 



H4 «. 
.» THIS •. 

LINE = • 
LAST WORD 
.PREVIOUS .» 
•.LINE .♦ 

***YES 



.» BYPASS 
*. EQUAL LINE 
». PRINT . 



•♦.••K4»»«*«»< 

* MOVE -SAME- 

* TO OUTPUT. 

* CLEAR HEX 

* BYTES AND 
♦PRINTABLE CHARS 



RETURN TO 

ADDR IN LINK 

REG 14 
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Chart KH. $$BDUMPB - Translating System Dump f Edit and Print a Line and Prepare Page 
Headings Subroutines 
Refer to Chart 13. 



#*B1»»«**»* 
•SET SWITCH2* 

• TO X«OF« - 
BYPASS EQUAL 

♦LINES SWITCH 
• OFF * 



X 
••Cl*««**«> 

•SET EQUALSW* 
TO X'OF' - • 

EQUAL COMPARE • 
SWITCH OFF ♦ 




!x * 



« i • 


X 

B4****. 

.•** TIME ***. NO 
*. ALREADY .».. 

». PRINTED .• 

'•YES 


• 2 • 
X 




PACEL X 

*«B3*»«*«*« 

• SET CCW1 * 
•COMMAND CODE • 

• TO X'09' - • 
• WRITE, • 

• SPACE 1 * 


: 


X 

• ••B5« ••«• 

NOVE TIME • 

FROM SAVE • 

AREA TO • 

CUTPUT AREA • 




'. 


X 

•MOVE SINGLE* 

• SPACE CNTRL • 
• CHAR-BLANK- • 

• TO 1ST BYTE • 
•TAPE OUTPUT* 


NOTIMEC X 

***SET UP PAGE • 

• HEAD UTH • 

• JOB NAME, • 

• DATE, PAGE • 

• NUMBER • 







•SAVE FIRST W0RD» 

• AT SAVPRT FOR • 

* NEXT COMPARE * 



•***E1******** 

CENTER BYTES 

IN OUTPUT 

AREA. BLANK 

CENTER BYTE 



• DIVIDE PRINT- • 
•ABLE CHARS INTO* 
» 2 BLOCKS AND • 

• SEPARATE BY * 

• 2 BLANKS • 



CLEAR 

PRINTER 

OUTPUT AREA 



*F2»*»«« 
PRINT 



PRINT •••* 
STARTIO X 

♦♦»*Gl«*»»« 

• SVC 
PRINT 
• LINE 



#J1***»» 
SVC 7 
WAIT 



E3 •. 

••KON1 = •. 
•0 - COUBLE 

SPACE 
». NEEDED . 



RESET 

KON1 TO 

X'01* 



»»G3««««»*« 
• MOVE CHAR • 

* TO FIRST 

BYTE TAPE 

* OUTPUT - 
DBL SPACE CC» 



»»»»D4******** 

MOVE A 1 TO 
FIRST BYTE 
TAPE OUTPUT 



#*E4**»»««» 

•MOVE X'OO" 

TO KON1- 

INDICATE 

DBL SPACE 

* NEEDED 



•••D5*«#««««« 

GET LINE 

COUNT FOR 

SYSLST FROM 

CCMREG INTO 

REGISTER 2 



SUBTRACT 1 

FRCP LINE 

CCUNT 



»*F4«**«*»» 

* MODIFY OP * 

•CODE IN CCWO • 

•TO X'88'~ SKIP 

♦TO CHANNEL 1 ♦ 



LOAD X«03« - 
SYSLST ENTRY 
IN LUB TABLE- 
I NTO REG 



•♦J2*»*«« 

• TURN EOV 

RETURN 

SWITCH - 

EOVBT - _ 

•WITH X'02 



ON 



YES .• EOF - 
...... CCB BYTE 4 

•. BIT 7 . 



J3 •. 

.« ROOM *. 

.♦FOR ANOTHER* 

•.LINE. REG 2 

•.UNEQUAL 0.» 



«#K1*«»»*** 
» NOP • 

• CARRIAGE 
CONTROL CODE 

* TO CCWO FOR 
♦BODY LINES • 



**K2*»**»» 

SVC 2 

FETCH 

$$BCMT07 



*»*«K3«*«****«* 


RETURN TO 


ADCR IN LINK 


REG 14 



ADD 1 TO PAGE 

COUNTER - 

REGISTER 7 



CONVERT PAGE 
NUMBER TO 
DECIMAL, 
SUPPRESS 

LEADING ZEROS 



ZERO LINE 

COUNT 

REGISTER 2 
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Chart KJ. $$BDUMPD - Translating System Dump, Background/Foreground Dump on Disk 
(Part 1 of 2) 

Refer to Chart 13. 



♦A2 
COUNTER FOR CCW 
MODIFICATION ROUTINE. 



**#*A1****** 
♦ $$BDUMP0 



» POINT REG 3 
» TO FIRST CCW 
•IN CHAIN. LOAD 
» 8 INTO REG 4 
» *A2 



X.. 



L0ADR5 

»*##*C1******** 

* ADD CONTENTS 

* OF REG 5 

* TO ADDR 

* IN CCW 



«#*D1****«*» 

INCREMENT 

REGISTER 3 

TO NEXT 

CCW 



.» CCW *. 

.ADDRESSES ALL. 
♦.MODIFIED .* 



***»F1***»***» 

MOVE FLOATPT 

INDICATOR 

BYTE TO 
FLPTSW+1 



*»«B2*****»* 
INITIALIZE 

REG 7 AS 
PAGE COUNT 

REGISTER 



****C2********* 

POINT REG 3 

TO FIRST LINE 

OF REGS IN 

SAVE AREA 



X 

#»#D2****»** 

MOVE CE 

INDICATOR 

BYTE TO 

CESWITCH+1 



*»»*«E2»*»**»*** 

* MOVE DD WORD 

* AND START 
*ADDR INDICATOR 
*. BYTES TO 

* SWITCHES ALSO 



* CLEAR PRINTER 

* OUTPUT 

* AREA 



EOIT AND 

PRINT 
REGS 0-7 



»«#«C3««««*«** 

MOVE HEADING 

FOR REGS 

8-15 TO 

OUTPUT 

AREA 



»*«*D3«***»*** 

GET LOCATION 

OF REG 8 

FROM SAVE 

AREA - SAVE 



EDIT AND 

PRINT 
REGS 8-15 



* MOVE COMREG 

* HEADER AND 

* ADDRESS TO 

* OUTPUT AREA 



**»**C4**«******* 

• DECREMENT ♦ 
•LINE COUNTER - * 

* REG 2 BY 1 • 



PRINT COMREG 

LINE AND 

SPACE 1 



#*E4*»*««»» 
♦AND SWITCH1* 

♦ WITH X«OF« ♦ 
TO ALLOW FOR 

♦ TRANSLATE ♦ 



»«*»F4»* •'*••••' 

CLEAR 

REGISTER 5 

FOR START AT 

LOCATION 

CCCCCO 



• ***G ].•» ♦♦♦••*•» 


♦♦♦♦G2^^^ # 


LOAD ADDR OF ♦ 


HEADER 


WRITECCW INTO ♦ 




REG 1 AND STORED 


PRINT 


IN CCB ♦ 


♦ HEADER 



♦•••G3«*^«*«" 

LOAD ADDRESS 

OF FP REGS 

SAVE AREA 

INTO REG 3 



**«G4******** 

LOAD REG 8 

WITH NUMBER 

OF WORDS TO 

DUMP FROM 

SWORDS 



X 




MOVEREG X 


••HI******* 




♦♦»*#H2 ♦♦♦♦♦♦♦* 


LOAD 


♦ 


♦ MOVE HEADING 


ADDRESS OF 




♦ FOR REGISTERS 


CCB INTO 




♦ 0-7 TO 


REGISTER 1 


♦ 


♦ OUTPUT AREA 



LOAD 8 INTO * 

REGISTER 4 - ♦ 

WORD LENGTH * 

INCREMENT ♦ 



• DBL SPACE ♦ 
♦CNTRL CHAR FOR 

* DISK AT LOC ♦ 
♦ DISKBYT • 



*«H3*«***** 

MOVE FP 

HEADER TO 

OUTPUT 

AREA 



EDIT AND 

PRINT FP 

REGS 



***H4*«*******»* 
T0RE5 KL 

~EDIT AND*'*"* 
PRINT SUPER ♦ 
AREA 

«»*♦»*•••••«• 



• ♦•• 
KK • 
Bl« 
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Chart KK. $$BDUMPD - Translating System Dump, 
(Part 2 of 2) 

Refer to Chart 13. 



Background/Foreground Dump on Disk 



MOVE CE 

AREA HEADING 

TO OUTPUT 

AREA 



•»D1» 

•SET UP C'0'» 

« DBL SPACE » 

•CNTRL CHAR FOR 

* DISK AT LOC « 

* DISKBYT * 



•DECREMENT LINE 
• COUNTER - 
« REG 2 - BY 1 



LOAD REG 13 
WITH ADDR OF 
EDITLBL FOR 
RETURN FROM 
PRINT 



C2 •. 

♦ CE • 

AREA 

DD WORD 

ADDRESS 



GET STARTING 

PROG ADDRESS 

IN REG 5 



•Ytb 




• KM • 

• El» 




X 

»»»«D2««»*«» 
STORES 

~ "edit and 

• PRINT CE 
AREA 


»»*• 
KL 


UNPACK 


X 
•••»«03«**»*«»««» 

• MOVE NUMBER • 

• OF WORDS TO • 

• DUMP INTO • 

• REG 8 * 



MOVE LBLTYP 
4EADING AND 

LENGTH TO 
OUTPUT AREA 



•»E3«*««*»» 

♦MOVE X'FO' • 
•INTO SETSW4 - 

INIT SWITCH 
• FOR LAST 

* LINE EOJ • 



•SET UP C'0'» 
» OBL SPACE • 
•CNTRL CHAR FOR 
• DISK AT LOC • 

» DISKBYT * 



♦ RESET PRINT « 

• ROUTINE AND « 
•ALIGN ADDRESSES* 



LOAD ADDR 
OF CE AREA 
INTO REG 5 



*#»»*H1»*««**** 

♦ LOAD NUMBER 

* OF WORDS 

• TO DUMP 

* IN REG 8 



» RESET PRINT • 
• ROUTINE AND * 
•ALIGN ADDRESSES* 



•DECREMENT LIN 

* COUNTER - 

• REG 2 - BY 1 



#»#«#G3»*»***»»« 
« LOAD REG 13 

• WITH DUMP 

• COMPLETE 
•RETURN ADDRESS 

• -ENCJOB- 



PRINT 

LBLTYP 

LINE 



•MOVE PARTITION 

• HEADER TO 

• OUTPUT 



DDSWTCH2 .«. 




H3 «. 








.* PP «. 


NO 


•.AREA CC WORD .*.... 


♦. ADDRESS .• 










X 


•YES 


• **•* 




•KM • 






• El» 


















UNPAC 


X 




••••J3««««««*«*H 




STORE5 KL 




EDIT AND 


♦ PRIN-- PP • 




AR 


EA 





SVC 2 

$$BE0J3 
CHART FL 
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Chart KL. $$3DUMPD - Translating System Dump, Reset Storage Print Routine and Edit a 
Line Subroutines 
Refer to Chart 13. 



♦ ST0RE5 



* RESET » 
♦M0VE32 INSTR 
TO ORIGINAL 
•LENGTH OF 32 



»**#B2»*«*««»* 

POINT REG 14 

TO REDUCE8 

FOR RETURN 

AFTER 1ST 

LINE PRINT 



#**B3»«»«»«* 

STORE LINE 

ADDR FROM 

REG 5 AT 

AORBKT FOR 

CONVERT 



LOAD NLMBER 
OF WORDS 
LEFT INTO 

REGISTER 4 



««B5««*««*« 
•RESET CCRE 
« RETURN 

-SWITCH3- 
* TC BRANCH 



»#C1»»»»**» 
•RESET CORE • 

* STORAGE • 
RETURN SWITCH 

• -SWITCH3- * 
• TO NOP • 



REINITIALIZE 
LOOP COUNTER 
REG 4 WITH 8 



» STORE START 
•ADDR AT ADRBKT 

* FOR UNITS 

• TEST 



••»*F1»»»»»**«» 

UNPACK AND 

TRANSLATE 

FIRST ADDRESS 

INTO OUTPUT 

AREA 



»***G1*»*»**»»» 

MOVE FIRST 24 

BYTES OF CORE 

TO BUCKET 

FUR CONVERT 



#.**C2»»*»«»»« 

RETURN TO 

ADDR IN LINK 

REG 13 



»*»C3«««*»»» 

UNPACK AND 

TRANSLATE 

ADDRESS AT 

OUTPUT 



MOVE NEXT 32 

BYTES OF CORE 

TO BUCKET 



EDIT AND 
PRINT 
LINE 



♦♦♦♦G2**«**»«» 

RETURN TO 

ADDR IN LINK 

REG 13 



REDUCE 
NUMBER OF 
WORCS TO 
DUMP BY 8 



X 


SETSW4 X 


#C4»*****»»»* 


»*C5««*«««* 


INCREMENT * 


•SET BYPASS 


REG 5 TO * 


• -SAME- 


NEXT 32 » 


» COMPARE 


BYTES • 


♦ -SWITCH4- 




• OFF 


•*»••*•*•«**• 





*D4»**««» 

CLEAR 

PRINTER 

OUTPUT 

AREA 



• MULTIPLY * 
♦NUMBER OF WORDS* 

• LEFT BY 4 AND * 
» SUBTRACT 1 • 

• FROM RESULT * 



••F4«»»*»»« 
• MODIFY • 

* MOVE32 INST 
TO MOVE THIS 

* NUMBER OF 
♦BYTES *F5 • 



*F5 
NUMBER CF BYTES 
DETERMINED AT 
BLOCK E4. 



»»G4^*^»**^ 

♦ RESET ♦ 

♦ SWITCH2 TO ♦ 
♦NOP TO PREVENT 

♦ REG 14 ♦ 

♦ RETURN ♦ 



LOAD 6 INTO 

REGISTER 

FOR 6 WORD 

UNPACK 



• •»*»J 1 #»»**»#»»• 
•POINT R3 TO 1ST» 
♦BYTE FOR CNVRT • 

• AND R6 TO • 

• BYPASS 1ST 2 • 

• WDS IN OUTPUT * 



J3 ♦. 

.♦ NEXT ♦. 
32 BYTES 
= LAST 32 

. BYTES . 



INCREMENT 

REGISTER 5 

TO NEXT 

32 BYTES 



♦ •^•••♦♦♦^ 

INCREMENT 

REG 5 TO 

NEXT 32 

BYTES 
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Chart KM. $$BDUMPD - Translating System Dump, Subroutines to Edit and Print a Line 
Refer to Chart 13. 



♦♦Al*****»« 
CONVERT-4 



•A2*»«»*» 
CONVERT 



♦♦♦♦Bl ♦♦•»»*•♦ 

LOAD ADDRESS 

UF UNPACK 

WORKAREA 

INTO 

REGISTER 3 



•••••B4**«*«***»* 

• INIT REG C • 

• AS LOOP • 

• COUNTER * 

• WITH * 

• VALUE 7 * 


• SET 

» SWITCH2 TC 
• X'FO' - 
*BYPASS EGUAL 

♦ LINES 



CONVERT 

♦ LOAD ADDRESS 
« OF 1ST 

* UNPACKED 

• WORD INTO 

* REGISTER 6 



»»»»D1»*»»*»*» 

INIT UNPACK 

LOOP COUNTER 

REG WITH 

VALUE OF 

REG A 



♦ ♦♦♦♦^♦♦♦♦♦♦♦♦♦* 




• POINT REG 6 • 


« SET 


• TO FIRST * 


• EGUALSW 


• WORD IN • 


• TC X'80« - 


• OUTPUT • 


» ECUAL 




* COMPARE 



•**D2»»»«»» 

POINT REG 

TO BUCKET- 

1ST BYTE 

TO TEST 



UNPACK AND 

TRANSLATE 

1 WORD 



•♦Fl*»#»**» 
INCREMENT 
REG 6 AND 
REG 3 FOR 
NEXT WORD 



LOADTAB 

••*• *£2 *****«**« 

* LOAD REG 6 
» WITH ADDRESS 

* OF PRINTABLE 

* CHARACTER 

* TABLE-CHARTAB 



COMPHI .*. 

F2 ♦ . 

.* CORE «. 

.♦BYTE HIGHER* 

». THAN HIGH 

• .CHARACTER.* 



G2 



••••F3»««**»»* 

LOAC REG 6 
WITH ADDRESS 

OF NEXT SET 
OF PRINTABLE 

CHARACTERS 



YES .» 1ST 

WORD EQUAL 

*. NEXT 



BYPASS 
-SAME- 
ROUTINE 



• KN * 

* Dl« 

SAVEWORD 



CORE *. * 

.•BYTE HIGHER*. NO • 
». THAN LOW .• X* 

•.CHARACTER.* • 

•. .» UNPRINTABLE* 

*"*YES 



•••G3******** 

MOVE A 

PERIOD OVER 

UNPRINTABLE 

CHARACTER 



INCREMENT 

REG 3 TO 

NEXT BYTE 

TO BE 

TESTED 



#**#J1#***»*»» 

LOAD 32 INTO 

REGISTER 

AS NUMBER 

OF BYTES TO 

SCAN 



•**# FA** ****** 

INCREMENT 

REGISTER 6 

TO NEXT WORD 

TO COMPARE 



G4 *. 

.* ALL * 

WORDS IN 

LINE 

.COMPARED 



HA *. 

.» THIS *. 
LINE = 

LAST V«ORD 
.PREVIOUS . 

♦.LINE .* 



• YES 



* BYPASS 

EQUAL LINE 
*. PRINT . 



•♦♦•♦K4********** 

* MOVE -SAME- * 

* TO OUTPUT. * 

* CLEAR HEX * 

* BYTES AND * 
•PRINTABLE CHARS* 



• ♦♦♦K5""**** 

RETURN Td 

ADDR IN LINK 

REG 14 
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Chart KN. $$BDUMPD - Translating System Dump, Edit and Write a Line and Prepare Page 
Headings Subroutines 
Refer to Chart 13. 



•A5»**** 
HEADER 



SWTCHOFF X 

**B ].**»»**» 
•SET SWITCH2« 
» TO X'OF' 
» BYPASS EQUAL 
* LINES 
* SWITCH * 



*SET EQUALSW* 

* TO X'OF* - * 
EQUAL COMPARE 

* SWITCH OFF * 



SAVE FIRST 

WORD AT 

SAVPRT FOR 

NEXT COMPARE 



SET UP SEEK 

ACCRESS 
AT SEEKBUCK 
-BBCCHH- 



DECREMENT 
R OF CCHHR 
AT SEEKBUCK 

BY 1 FOR 
WRITE RECORD 



SVC 
PRINT 
LINE 



RESET 

TIC1+7 T 

X'Ol* 



•#C4******* 
♦MOVE CHAR C» 

•TO FIRST BYTE* 
DISK OUTPUT- 

• DBL SPACE • 
CONTROL CHAR» 



04 *. 

.• ROOM ». 

.♦FOR ANOTHER* 

•.LINE - REG 2 

•.UNEQUAL 0.» 



TINE 
ALREADY 
PRINTED 



•««C5*««**«*« 

MOVE TIME 

FROM SAVE 

AREA TO 

OUTPUT AREA 



***D5******** 

SET UP PAGE 

HEAD WITH 

JOBNAMEi 

DATE, PAGE 

NUNBER 



CENTER BYTES 

IN OUTPUT 

AREA. BLANK 

CENTER BYTE 



**#*»F1*****«»*»* 

• DIVIDE • 
•PRINTABLE CHARS* 

• INTO 2 BLOCKS • 
•AND SEPARATE BY* 

• 2 BLANKS • 



#F2****» 
PRINT 



RETURN TO 

AOOR IN LINK 

REG 14 



GET ADDRESS 

OF SYSLST 

DIB IN 

REGISTER 6 



»»G3******« 

*MOV£ SINGLE* 

•SPACE CONTROL* 

•CHAR -BLANK- TO* 

* FIRST BYTE * 

•DISK OUTPUT* 



MCVE A 1 
TO FIRST 
BYTE DISK 
CUTPUT 



»«F5*«*«*«» 
*MGVE X«00« * 

* TO TIC1+7 
INDICATE OBL 

•SPACE NEEDED 



ADD 1 TO 

PAGE COUNTER 

REGISTER 7 



ROOM 
LEFT ON 
SYSLST 



CLEAR PRINTER 

OUTPUT 

AREA 



CCNVERT PAGE 

NC. TO DECIfAL 

AND SUPPRESS 

LEADING ZERCS 



INITIALIZE 
COUNT FIELD 
AT DISKOUT 



.* TIC1+7 = *. NO 
•X'Ol' - COUBLE.«... 
•. SPACE .» 
•NFEDED.* 



•••*K4******* 

SUBTRACT 

ONE FROM 

LINE COUNT 



NOTZERC 

•««««j5«««««*« 

* ZERO LINE 

* COUNT 

* REGISTER 2 



#*«#*K5«******«« 
•GET LINE COUNT 

* FCR SYSLST 

* FROM COMREG 
•INTO REGISTER 2 
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Chart LA. $$BPDUMP - Translating System Dump, Background/Foreground Parameter Dump 
(Part 1 of 3) 

Refer to Chart 13. 



IJBPDP34 
RELOCATE X 

**»»#B1*»*«*»»* 

* POINT REG 3 

* TO FIRST CCW 
» IN CHAIN. 

« LOAD 10 INTO 
» REG 4 *A2 



♦ADO CONTENTS OF 
* REG 15 TO 

•ADDRESS I.M CCW 



INCREMENT 
REGISTER 3 

TO POINT 
AT NEXT CCW 



El ». 

•'addressed* 

ALL 

*. MODIFIED . 



«»»*F1******** 

POINT REG 11 

AT COMREG 

AND REG 9 

AT PIB TABLE 



»**G1»«***»* 

LOAD REG 9 

WITH ADDR 

SAVE AREA 

FROM PIB 

TABLE 



»**»*H1****«*«*** 

* LOAD LUB * 

* TABLE ADDRESS * 
•INTO REG 4, REG* 

* FROM SAVE • 
•AREA INTO REG 3* 



•»*«»B2********* 

• GET STARTING 

• ADDRESS FOR 
♦CORE DUMP FROM 

• SAVED REG 
« INTO REG 6 



ALIGN ADDRESS 

Dim FULL WORD 

BOUNDARY 



•♦♦♦B3«**»***»« 

GET UPPER 

LIMIT ADDRESS 

OF PDUMP IN 

REG 8 FROM 

STOREC REG 



C3 ». 
.• START •. 
YES .» ADDR • 
......GREATER THAN 



*.ACCR . 
*«l\IO 



MOVE BG 

JOBNAME FROM 

COMREG 



•*B5««««««« 

SVC 11 

RETURN TC 

CALLER 



E2 •• 

. • ADDR ». 

START ON 

DD - WORD 

.BOUNDARY . 



•♦•♦#F2********** 
•CALCULATE NO.OF» 

• BLANKS NEEDED • 

• TO START DUMP • 
•PRINT AT PROPER* 

• POINT IN REG 7 * 



»*#*»G2****»***« 

♦ INITIALIZE 

* MOVE BLANKS 
•INSTR-BLANKER- 

• WITH CONTENTS 

• REG 7 



•MOVE X'OF' * 
♦INTO SETSW+1 

TO ALLOW 
* CLEARING 



MAKE DUMP 
END ACDRESS 
EQUAL CORE 
END ACCRESS 



ROUNC ADDR 

IN REG 8 TO 

NEXT WORD 

BOUNDARY 



*»*»»G3********* 
•SUBTRACT REG 5 

* FROM REG 8 

• TO GET NUMBER 

♦ OF BYTES TO 

♦ DUMP 



•DIVIDE BY 4 TO 

• GET NUMBER OF 

• WOROS 



*»*E4***««»* 

MOVE 

FOREGROUND 

JOB NAME 

FROM SAVE 

AREA 



»*#**F4*» •*»•»•♦ 

♦ GET SYSLST 
♦INDEX FOR THIS 

* PARTITION AND 

* LOCATE SYSLST 

♦ IN LUB 



.♦ SYSLST ♦. NO 

•.ASSIGNED THIS.^ 

•.PARTITION.* 



#»»#«H4»* ******** 

♦ DETERMINE ♦ 

♦ PUB ENTRY ♦ 
•ASSOCIATED WITH* 
♦SYSLST FOR THIS* 

♦ PARTITION * 



Jl *. 




•♦•♦»J2*»****** 


* ADDR *. 




* RESTORE 


IN REG *. 


NO 


* STARTING 


START ON 




* ADDRESS IN 


FULL .* 




♦REG 6 AND LOAD 


♦.WORD .* 


. 


♦ INTO REG 5 



»»»*» J 4* *••••** 

♦ POINT REG 1 
» -CCB- TO 

♦ DISK CCW 

♦ CHAIN 
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Chart LB. $$BPDUMP - Translating System Dump, Background/Foreground Parameter Dump 
(Part 2 of 3) 

Refer to Chart 13. 



SYSLST 
A DISK 
DEVICE 



»«C1»****** 
* SET X«F0' * 
•IN PRINT + 1 

-SWITCH FOR 
* NO DISK- 



**B2******* 

•INITIALIZE ♦ 

CCB WITH 

CCW ADDRESS 

FROM 

♦REGISTER 1 » 



PRINTER 

»»*»*C2*»«*** 

* LOAD 

* REGISTER 1 
» WITH CCB 

* ADDRESS 



MOVEREG X 

*«***B3**«**«** 

* MOVE HEADER 

* FOR REGS 0-7 

* TO OUTPUT 
« AREA 



•*C3*««*«** 

♦SET UP C'0«^ 

• -DBL SPACE * 
♦CHAR FOR TAPE- 

♦ AT LOCATION • 
♦ TAPEOUT * 



MOVE FP REGS 
FROM PART. 

SAVE AREA TO 
FPSAVE AREA 



RELOCATE CCW 

ADDRESS 

FOR TAPE 

DEVICE 



♦ LOAD REG 4 

♦ WITH ADDR OF 

♦ TAPE OUTPUT 
•AREA AND STORE 

♦ IN TAPE CCW 



•*G1****»*« 

* SET MASK ♦ 
♦MVI'S - X»01« 

♦ FOR COMMAND 
♦CODE IN TAPE 

* CCW»S • 



FP 


♦ . 


NO 


FEATURE 


„* 


♦ .... 
















»YES 








< 






• •E2«<»»»<» 




LOAD 8 






INTO REG 4 






FOR WORD 






LENGTH 






INCREMENT 


♦ 






X... 







STORE FP 
REGS IN 
SAVE AREA 



«**»F2*^**«**«* 

ZERO REGS 

2 AND 7 - 

LINE AND PAGE 

COUNT 

REGISTERS 



»*» *G2 *♦**•*•♦♦ 

POINT REG 3 

TO BEGINNING 

OF FIRST LINE 

OF REGS FROM 

SAVE AREA 



MOVE HEADER 

FOR REGS 8-15 

TO OUTPUT 

AREA 



****F3 *•**•♦♦♦* 

MOVE CONTENTS 

REGS 8-15 

TO SAVE 

AREA 



MPSSYS 

**»**E4^«**»«* 

• LOAD ADDRESS 

• OF FP REGS 

• SAVE AREA 
« INTO REG 3 



*«**F4*» *•*#*** 

MOVE FP REGS 

HEADER TO 

OUTPLT 

AREA 



»*»»G3« ••••*♦• 

GET LOCATION 

OF REG 8 

FROM SAVE 

AREA. SAVE 

IN REG 3 



SET TAPE COUNT* 
* IN CCW1 FOR 
* 121 * 



•♦Jl*»***»« 

•INITIALIZE * 

•TESTEOF WITH 

X'Ol* - FOR 

• EOF TEST ON 

• TAPE • 






1 * 
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Chart LC. $$BPDUMP - Translating System Dump, 
(Part 3 of 3) 

Refer to Chart 13. 



Background/Foreground Parameter Dump 



EDITCORE X 

••**#BI******** 

* SET SWITCH1 

* TO NOP TO 

* ALLOW 

* TRANSLATE 



***B2******** 

MOVE NEXT 

32 BYTES OF 

CORE TO 

BUCKET 



SPACE 

ONE 
LINE 



.• ANY *. NO 

•WORDS LEFT TO.*... 
». DUMP .* 



**EL******* 

♦SET MOVESW * 
» TO X'OO' TO 

CLEAR ODD 
* WOROS FIRST 

* TIME » 



SWITCH3 
YES .♦* 



REDUCES 

*«»»»E2«#«»«»* 

* REDUCE 

» NUMBER OF 

* WORDS TO 

* DUMP BY 8 



* LOAD 8 INTO * 

* REG 4 AS * 
•NUMBER OF WOROS* 

* PER LINE * 



3 WORDS 
OR FEWER 
. LEFT 



STORE5 

*****HL******* 

* STORE LINE 

* ADDR FROM 

* REG 5 AT 

* ADRBKT FOR 

* CONVERT 



***J1******* 

UNPACK AND 

TRANSLATE 

ADDRESS AT 

OUTPUT 



G2 *. 

.* NEXT *. 
32 BYTES *. NO 
= LAST 32 .*... 

. BYTES .* 



**H3«****** 

INCREMENT 

REG 5 TO 

NEXT 32 

BYTES 



»#J2******* 

INCREMENT 

REG 5 TO 

NEXT 32 

BYTES 



INCREMENT 

REG 5 TO 

NEXT 32 

BYTES 



»*«C4******** 

LOAD NUMBER 

OF WORDS 

LEFT INTO 

REGISTER 4 



•G4****** 

CLEAR 

PRINTER 

OUTPUT 

AREA 



»***«E 4* ********* 

* CALCULATE * 
♦NUMBER OF BYTES* 
•LEFT TO CONVERT* 
•AND SET LENGTH • 

• OF SCAN • 



* DECREMENT * 
♦NUMBER OF BYTES* 

* LEFT BY 1 AND * 
•STORE AS LENGTH* 

* IN MOVE32 * 



* TO X'FO' 



♦SET SWITCH3* 
TO X'FO' - * 
EXIT SWITCH 



X 
* 2 



X 

* 4 
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Chart LD. $$BPDUMP - Translating System Dump, 
Refer to Chart 13. 



Subroutine to Edit and Print a Line 



#*»*A2*»«**» 
CONVERT 



LOAD ADDRESS 

OF UNPACK 

WORK AREA 

INTO 

REGISTER 3 



CONVERT 

*««*»C1********* 
» LOAD ADDRESS 

* OF FIRST 

* UNPACKED WORD 
•INTO REGISTER 6 



#***D1******** 

INIT UNPACK 

LOOP COUNTER 

REG WITH 

VALUE OF 
REGISTER 4 



* INITIALIZE » 

• REGISTER * 
»AS LOOP COUNTER* 
« WITH VALUE 7 * 



»*»C4«*«»«* 

POINT REG 

TO FIRST 

kORD IN 

OUTPLT 



«»B5««««««* 

*SET SWITCF2* 

TC X'FO' - 

BYPASS 

ECUAL 

* LINES « 



««C5«*«*««« 

•SET EQUALSW» 

TC X»8C" - 

ECUAL 

COMPARE 



UNPACK AND 

TRANSLATE 

1 WORD 



»*-»»»Fl******* 

* INCREMENT 

* REG 6 AND 

* REG 3 FOR 

* NEXT WORD 



»**D2*****»** 

POINT REG 3 

TO BUCKET - 

FIRST BYTE 

TO TEST 



LOADTAB 

*«»»»E2******»»« 

• LOAD REG 6 

• WITH ADDRESS 

• OF PRINTABLE 

• CHARACTER 

» TABLE-CHARTAB 



COZERO 
YES .* 



.» CORE ». 
•BYTE HIGHER*. 
THAN HIGH . 
•.CHARACTER.* 



•»»*F3*«*****« 
LOAD REG 6 

WITH ADDRESS 
OF NEXT SET 

OF PRINTABLE 
CHARACTERS 



1ST 

WORD EQUAL 
NEXT 



BYPASS 

- SAME - 

ROUTINE 





.*. 








COMPLO 


. 












Gl •. 












G2 *. 






»#*G3**«*««» 
















* CORE •. 






MOVE A 




• 8 WORDS • 


. 


^0 






• 


3YTE HIGHER* 


NO 




PERIOD OVER 




UNPACKED 












THAN LOW 




..X« 


UNPRINTABLE 




*. .* 








• 


CHARACTER.* 




• 


CHARACTER 












































*YES 












*YES 
X 






• 


X 
SWITCH1 .*. 






NEXTBYTE 


k 










HI *. 








*«H2******«* 




















INCREMENT 










* BYPASS * 




YES 






REG 3 TO 










TRANSLATE 

**NO 




X 


;, 




NEXT BYTE 

TO BE 

TESTED 


.: 












*LE • 
























♦ El* 
























*** 
























SHIFT 






X 








SCANNO X 


















*»***J1#»»*#»*# 










J2 *. 










LOAD 32 


* 


















INTO REG 










SCAN ** 


YES 








AS NUMBER 










COMPLETE 










OF BYTES TO 


















* 


SC/ 


\N 


* 










*. 


. • 


. 







»#»F4****»»« 

INCREMENT 

REGISTER 6 

TO NEXT 

WORD 
COMPARE 



ALL WORDS 

IN LINE 

.COMPARED . 



.* THIS *. 

.•LINE = LAST*. 

•.WORD PREVIOUS.* 

«. LINE .* 



* BYPASS 

EQLAL LINE 
*. PRINT . 



•»***K4****»«**«* 

• MOVE - SAME - • 

• TO OUTPUT, • 

• CLEAR HEX * 

• BYTES ANO • 
•PRINTABLE CHARS» 



*«««K5********* 
•RETURN TO ACDR 
*IN LINK REG 14 
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Chart LE. $$BPDUMP - Translating System Dump, Edit and Print a Line and Prepare Page 
Headings Subroutines 
Refer to Chart 13. 



****A2 ********* 
* PRINT * 



••••A4***»* 
HEADER 



SWTCHOFF X 

**B1»****** 

•SET SWITCH2* 
* TO X'OF r - 
* BYPASS EQUAL 
•LINES SWITCH 

• OFF * 



•SET EQUALSW* 

* TO X'OF' - ♦ 
EQUAL COMPARE 

♦ SWITCH OFF * 



SAVEWORD X 

••*»*01*»****** 

» SAVE FIRST 

• WORD AT 

• SAVPRT FOR 

• NEXT COMPARE 



»#*#E1*»»*»*»* 

CENTER BYTES 

IN OUTPUT 

AREA. BLANK 

CENTER BYTE 



**»»»F1*»»*«**«*« 

• DIVIDE • 
•PRINTABLE CHARS* 
» INTO 2 BLOCKS • 

• AND SEPARATE • 

• BY 2 BLANKS » 



NO .• 1ST TIME- 

CLEAR ODD 

*. WORDS . 



*«H1**»»««* 
CLEAR ODD 
WORDS IN 
OUTPUT UP 
TO START 
ADDRESS 



•GET ADDRESS OF 

* SYSLST DIB IN 

* REGISTER 6 



♦»B3*«*«*»* 
* NOP CCWO, 
• X«03», FOR 
BODY LINES 



SPACE1 

**C3******* 

* SET CCW1 * 

•COMMAND CODE • 

« TO X«09« - 

♦WRITE, SPACE1* 





D2 *. 






»»D3«»«»»»* 




. * »• 






♦MOVE SINGLE* 




* ROOM * 


. NO 


♦SPACE CONTROL^ 


*• 


LEFT ON 
•. SYSLST .* 


.» 


... 


•CHAR - BLANK - • 
•TO FIRST BYTE* 




*. . • 






•TAPE OUTPUT* 








X 






• YES 




*LA « 
• B5« 

EXIT 






X 






KLEER • X 




***E2******** 






#«**«E3*»«»»«»»*» 












* 


INITIALIZE 


« 




• CLEAR PRINTER • 




COUNT FIELD 


• 




* OUTPUT AREA • 


* 


AT DISKCUT 


* 




• • 


* 




* 




* • 










X 




X 






TESTEOF .». 




**«F2*«»*»«** 






F3 •. 




SET UP SEEK 










ADDRESS AT 






.•END OF FILE*. 




SEEKBUCK 






•. ON TAPE .* 


• 


-BBCCHH- 


» 




*. •• 


*« 




»* 




**» «** 



•»*B4****«**** 

SET UP PAGE 

HEAD WITH 

JOB NAME, 

DATE, PAGE 

NUMBER 



•*C4******* 

MOVE A 1 

TO FIRST 

BYTE TAPE 

OUTPUT 



••D4*»»»»*« 
* MODIFY OP • 
•COOE IN CCWO 



FETCH07 X 

*«««*B5««*****« 

• LCAD X«03« - 

• SYSLST ENTRY 

• INTO LUB 

• TABLE - INTO 
« REGISTER 



• •C5« 

• TURN ECV • 
•RETURN SWITCH* 

- EOVBT - CN 
• WITH X'02' • 



• •D5« 
SVC 2 
FETCH 
$$BCMT07 



SPACE2 

**E4«««*»»« 

* MODIFY OP » 

•CODE IN CCW1 • 

* TO X'U 1 FOR 

PRINT, SPACE 2* 



*«*«F4**«***** 
ADD 1 TO 
PAGE COUNTER- 
REGISTER 
7 



••**G2*««**«*» 

DECREMENT R 

OF CCHHR 

AT SEEKBUCK 

BY 1 FOR 

WRITE RECORD 



.» ROOM ». 
.♦FOR ANOTHER* 
.LINE - REG 2 
♦. UNEQUAL .♦ 



• 2 
STARTIO 



*»**H3«««««»«*« 


RETURN TO 


ADDR IN LINK 


REG 14 



CONVERT PAGE 
NLM8ER TO 
OECIMAL, 
SUPPRESS 

LEADING ZEROS 



NOTZERO 

• ♦•♦•^♦♦•♦♦♦•* 

♦ GET LINE 

* COUNT FOR 

* SYSLST FROM 

* COMREG INTO 

• REGISTER 2 



**J1«**»**» 

•SET MOVESW 

TO BRANCH 

FOR REST 

OF DUMP 



••*J4**»***« 

SUBTRACT 1 

FROM LINE 

COUNT 



»*#*K2»««*^ 
SVC 7 
WAIT 
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Chart LF. $$BDUMP - Standard System Dump, Monitor Background Program Dump 
Refer to Chart 12. 



• ••• A 1 *-*»•#*»»* 
$$BDUMP * 



#»#»B1»»**»*«* 
POINT REG 11 

AT THE BG 

COMREG R9 AT 

THE PIB 

TABtE 



*»*»C1**»»»*** 

MOVE LTK TO 

TASK ID SAVE 

AREA TID 

(ASSUMES NO 

ASYNC PROC) 



C2 «. 

.* IS •. 

THERE 

AN 

.EXTENSION. 

"'•YES 



#*»»»E1»»*»****»* 
» POINT R2 TO * 
•COMREG XTNSION,* 
» MOVE LID * 

* INTO TASK * 

• SAVE AREA * 



»-**#*Gl»*****»** 
» POINT R3 TO 

* 2ND PART OF 

* PIB TABLE, ADD 

* TID VALUE TO 
•POINT TO ENTRY 



#«»»*H1*»»»*»»«» 
•GET MAINTASK'S 
♦SAVE AREA ADDR 
•FROM MAINTASK'S 
* PIB INTO 



.....X. 

NOCEAREA X 

»«A3««*«««« 
• TURN ON • 

* CANCEL FLAG • 
• IN PIB ASSIGN 

• FLAG BYTE * 



BACKGROUND . 


*.. . . 


. PROGRAM .♦ 


. 








X 


• YES 






•LG 




* Al 










X 


FGJO 






C3 *. 








DUMP •. 


YES 


MACRO 




. CALL .« 


. 



.•SYSLST » 
ASSIGNED 
IN LUB 
. TABLE 



*»«B4«»»*«»» 
LOCATE PUB 

ENTRY 

ASSOCIATED 

WITH 

SYSLST 



LCAD 

REG 1 

WITH ADDRESS 

OF NA^E 

$$BCUMPD 



#*#*E2»»»**»»* 

MOVE A ' 1' 

INTO -CEIND- 

TO INDICATE 

A CE AREA 

EXISTS 



*»*# #F2 •*•**•*»• 

* SAVE CE AREA 

♦ AND CE SAVE 
•AREA ADDRESSES 

• AT CEADDR 

* AND ENDCE 



D3 *. 

.• DUMP *. 

SWITCH 

IN COMREG 

ON 



CANCEL 
MACRO 
CALL 



R9 



1MOAP X 

»#«»*H2**»«**» 
•GET MAINTASK' 

♦ SAVE AREA 
» ADDR FROM 

♦ ATTN PIB 

♦ INTO R9 



CANCEL 
ALL MACRO 
. CALL 



.» IS IT ♦. 

.•A MAINTASK • 
.CANCELLATION 



• SYSLST • 

A TAPE 
*. UNIT .» 

**YES 


NO 


»»«EA« 

SET 
INDICA 
12 FOR 
DUMP Pf 
DENT T/ 


< '. 

APE* * '. 
rOR REG • 

CALLED • 
10-G TO • 
\PE JOB • 




X 





SVC 2 

$$BDUMPC 
CHART ff 



LOAD REG 1 

WITH ADDRESS 

OF NAME 

$$BDUMPB 



*LG-C1,C4,C1,D2, 
F1.G1.J3 



•»G4«««»»» 

SVC 2 

$$BDUMPB 

CHART MG 



CLEAR X 

• CLEAR HIGH • 

* ORDER BYTE * 

• IN R9, POINT • 

* RIO TO TASK'S • 
•ENTRY IN PIBTAB» 



•»H4»*»»»»» 

• MOVE X'lC • 
CANCEL CODE 

INTO PIB 
FOR NORMAL 

• EOJ • 



*#*«J4**«»*»«» 

LOAD REG 1 

WITH ADDRESS 

OF NAME 

$$BE0J3 



»*»»*K1*»*»»»»»* 

• GET LUB TABLE 

• ADDR INTO R4, 
•PUB TABLE ADDR 
•INTO R5 COMREG 

• XTNSN INTO R7 



SVC 2 

$$BEOJ3 

CHART MM 
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Chart LG. $$BDUMP - Standard System Dump, Monitor Foreground Program Dump 
Refer to Chart 12. 



CALC UPPER 

STORE LIMIT 

OF CANCELED 

PROGRAM 

SAVE IN REG 8 



SETHEX10 

•»B2«****** 
•MOVE X'10' • 
YES • CANCEL CODE 

• X» INTO PIB 

• SIMULATE 
♦NORMAL EOJ * 



DUMP 
SW ON IN 
. COMREG 



CANCEL 
MACRO 
CALL 



CANCEL 

ALL 

MACRO 



Gl •. 

.* MAIN- *. 

« TASK * 

CANCELATION 



NOCHNG 

••**»C2 ********* 

* GET SYSTEM 
•INDEX FOR THIS 

* PARTITION AND 

* LOCATE SYSLST 

* IN LUB 



83 «. 

SYSLST **. NO 
A .*... 
TAPE .* 

'•YES 



••»«C3********* 

MOVE CATA 

ADDRESS INTO 

CCW AND CCB 

TO PREPARE 

FOR SENSE I/O 



• •••• 

• LF • 

• C5» 



D2 *. 

.•SYSLST • 
• ASSIGNED 



♦•»»E2 •****••••* 

DETERMINE ♦ 

PUB ENTRY • 

ASSOCIATED ♦ 

WITH SYSLST FOR* 

THIS PARTITION ♦ 



SET TAPE 
INDICATOR REG 
12 FOR CALLED 
DUMP PROG TO 
INC TAPE JOB 



••*«E3******** 

LOAD ACDRESS 

OF CCB FOR 

SYSLST INTO 

REG 1 



•F3**«««« 
SVC 
EXECUTE 

SENSE 
COMMAND 



•**«G2******** 

LOAD REG 1 

WITH ADDRESS 

OF NAME 

$$BOUMPF 



**H2****** 

SVC 2 

$$BDUMPF 

CHART MA 



»H3*««» 
SVC 7 
WAIT 



Charts 153 



Chart MA, $$BDUMPF - Standard System Dump, Foreground Program Dump (Part 1 of 2) 
Refer to Chart 14. 



«*A1****** 
$$BDUMPF 



*»»*B1***»»*»»* 

COMP Fl 

IDENTIFIER 

X'30« WITH 

LOGICAL 

TRANSIENT KEY 



TAPRTN X 

»#**»B3*««****»»» 
« LOAO ACDR OF » 

• TPLINE IN REG 1» 
•STORE THIS ADDR« 

* IN CCW4 * 



•SKIP TO CHAN 1 
• ANC WRITE HOR 
•LINE OR TP ROD 



*»»*#B5«* ******* 

• GET REG SAVE 

• AREA ACCRESS 
•FRCM REG 9 CE- 
•LIMIT 32 BYTES 
•BY REGS 3 AND 5 



»***»D1* 

* MOVE F2 INTO 

* HDG REPLACING 

* Fi PROGRAM 
►IDENTIFICATION 



«*C3******* 

• SET « 

SWITCHES AT 

OUT1 ANC AT 

TARNOP TO 

» BRANCH • 



• LOAD ADCR OF * 
•CCW4 INTO REG 1» 

• THEN STORE IT • 

• IN CCB1 • 



* LOAD AND TEST • 

* TAPE REG 12 « 
•( SET BY $$BDUMP* 
•TO IDENTIFY IF • 
•SYSLST IS TAPE)* 



«#»«»E3*«******* 
» STORE ADDR IN 
•REG1 INTO CCB2 
•LD A A IN REG 4 
•AS WORK LENGTH 
• INCREMENT 



• ZERO REG 12 • 
•FOR USE AS PAGE* 
•CTR. ZERO REG 2« 
•TO USE FOR PAGE* 

• LINE COUNTER • 



»*««C5«*»«*«*«* 

SET HCG FCR 

FIRST LINE OF 

GEN REGS AND 

CCNTRCL BYTE 

FCR TAPE 



EDIT AND 

WRITE GENL 

REGS 0-7 



*».»#E5********* 
•PCINT TO REG 8 

* INFO IN SAVE 

* AREA CHANGE 

* PRINT LINE 

* HDR INFC 



SET SWITCH 
AT LST TO 

BRANCH 



**«*«G 3* ******** 
•STORE REG 8 IN 
•SAVARA. IT HAS 
•PROG UPPER LIM 
•CALC AND SAVED 
* BY $$BDUMP 



EDIT REG 8 



SYSLST IS PTR 

LOAD ADDR OF 

PTLINE INTO 

REG 1 



#»»**J1***##*««» 

* STORE ADDR OF 

* PTLINE FROM 
•REG 1 INTO CCW 

* AND CCW2 



•#»*#K1»*»*»»»»* 
•LOAD ADDR CCWO 

* IN REG 1 THEN 

* STORE IT IN 
•CCB1 LOAD CCW2 
•ADDR INTO REG 2 



.« FLOATING ». 
.POINT FEATURE. 
♦.ON SYSTEM.* 



»»J3******* 
•SET FPSW JQ* 

• NOOP MCDIFY • 
INST POINTING 

•TO LOW LIMIT • 
• OF PROG • 



SET SWITCH 

AT LST TO 

NOP 



»«»»»K3«*«******* 
•CLEAR 115 BYTES* 

• OF STG UP TO • 
» X'86« THIS • 

• WIPES OUT * 
•PREVIOUS INSTS • 



.»*#*J5*****«««« 

* SET LOWER 
♦AND UPPER SAVE 

* AREA LIMITS 
« FCR REGS 8-15 
•IN REGS 3 AND 5 



•ECIT ANC WRITE 

• GENL REGS 

* 8-15 
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Chart MB. $$BDUMPF - Standard System Dump, Foreground Program Dump (Part 2 of 2) 
Refer to Chart 14. 



.* FLOATING ». N 
♦.POINT FEATURE.*. 
*. SWITCH .* 



•*«**C1«********* 

•CLEAR I/O AREA « 
» STORE FLT PT * 
* REGS DELIMIT « 
» REG SAVE INFO » 
•BY REGS 3 AND 5* 



•EDIT AND WRITE 
•FLOATING POINT 
• REGS LINE 



♦EDIT AND WRITE 
* COMREG FOR 
♦THIS PARTITION 



♦EDIT AND WRITE 

♦ SUPVR PORTION 

♦ OF MAIN STG 



♦ SET 0UT4 * 

• TO NOP. WAS 

BRANCH TO 

• CORE STOR 
♦PRINT ROUT ♦ 



♦ ANY ♦ 

SPACE LEFT 
♦. ON PAGE .♦ 



*J1*»******** 



♦SKIP TO CHI ON 
♦ PTR WRITE HDR 
♦LINE OR TP RCD 



CQRE35 

•••••C3«******* 

• MOVE 

* CONTROL CHAR 

♦ TO OUTPUT 

♦ AREA 



• ##»D3***«***^ 

MOVE LABEL 

LENGTH HEADER 

TO OUTPUT 

AREA 



**E3******* 

♦SET SWITCH ♦ 

OUT3 ANO 

BRANCH 

•CORE25' TO 

♦ NOPS ♦ 



•»*«*F3****«**»« 

♦ POINT TO 

♦ LABEL LENGTH 

♦ INFORMATION 
♦WITH REGISTERS 

♦ 3 AND 5 



SET UP PRINT 

LINE WITH 

CE AREA 

HEADER 



♦ WRITE CE AREA ♦ 

♦ HEADING ON ♦ 
♦PRINTER OR TAPE* 



***«E4******** 

GET START 

AND END ADDR 

OF CE AREA 

IN REGS 7 

AND 8 



WRITE PRCB. 

PRCG HEADING 

LINE CR RCD 



**«*»C5*««««««««« 

♦ LCAD LOW LIMT ♦ 

♦ DUMP AREA IN ♦ 
♦REG VIA REG 7* 
♦ZERC REG 1 TEST* 

♦ ADDR IN REG 7 ♦ 



CORRECT 

ADDRESS 
•BOUNDARY 



»»#«*E5********** 

• CORRECT REG 7 • 

• TO PT TO NEXT ♦ 
♦MULTIPLE OF 16 ♦ 

• BOUNDARY OF ♦ 
♦PRCB PRCG START* 



SET ALTER 

SWITCH TO 

NOP 



SET 
ALTER3 SW 
TO NOP 



WRITE LINE 

OR RECORD OF 

LABEL INFO 



CORE1 X 

♦«***J3******* 

* CLEAR I/O 

♦ AREA. MOVE 

* PRPROG HDG 
*— Fl -OR- F2- 

♦ IN 



BRANCH 
TO PRINT 
. LINE 



»»«**H5«********* 

* LCAD ADDR CF * 
♦PRCB PROG UPPER* 

* LIMIT FROK * 

* SAVARA INTO * 

* REG 8 * 



* Bl* 
PRNTLN 
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Chart MC. $$BDUMPF - standard System Dump, Prepare Page Headings and PIOCS Subroutines 
Refer to Chart 14. 



**A1**»*« 
PAGHED 



PAGHEO 

****#B1********* 
« MOVE CHAR 1 
•INTO TPLINE AS 

* CONTROL BYTE 

* FOR TAPE 

* OUTPUT 



•***C1*******»* 

EXEC INST 

USEO TO CLEAR 

120 BYTE 

PTLINE AREA 



* INCREMENT » 
« REG 12 FOR * 

* PAGE COUNT * 

* CONV TO OCML » 
•STORE SAVE AREA* 



****E1* 
UNPK PAGE NO 

PUT IN HOR 
ASSEMBLY AREA 

CLEAR SIGN 



Fl 
.» HIGH *. 
.•ORDER DIGIT* 
•. OF PAGE NO 
*. ZERO .* 



*****G1**** *•*••• 

* SUPPRESS • 

* LEADING ZEROS • 
•BY MOVING BLANK* 

* INTO HI ORDER • 
•DIGIT OF PG NO • 



•»**B2**««****« 
MOVE JOB DATE 

FROM COMREG 
AND PAGE NO. 
TO PRINT LINE 
ASSEMBLY AREA 



LOAD ADDR OF 

CCB1 INTO 

REG 1 



» INSERT LINE 
•COUNT PER PAGE 

• FROM COMR£G 

• INTO REG 2 



DECREMENT 

LINE COUNT 

BY 1 



TEST FDR 

EOF ON 

TAPE 



REDUCE LINE 

COUNT BY 1 

IN REG 2 



I/O *. YES 


OPERATION ...... 


COMPLETE -• 








»N0 


> 


< '. 


*E3» !••••••• 


SVC 7 • 


PROB PROG • 


WAIT • 







2ND ». 

ORDER •. NO 
T OF PAGE.*..X 
. ZERO .* 



**.*.J1* 
•SUPPRESS LEAD- * 
•ING ZEROS -MOVE» 
•BLANK INTO 2ND • 
•HI URDER DIGIT » 
•OF PAGE NUMBER • 



LINE 

COUNT 

ZERC 



.« IF SYSLST • 
. IS TAPE UNIT 
*. BRANCH .* 



EOF ». BR 
ON .»... 
TAPE .• 



*****C4*»****«** 
* LOAC X'COCB* 
« INTO REG TO 
•GIVE CLASS AND 
•UNIT NO OF DEV 
•FOR EOV RETURN 



*#E4******* 

• CR INTO • 

♦ COMREG+89 • 

•A X'C2' TURNING* 

•ON EOV RETURN* 

* SWITCH * 



LOAD ADDRESS 

INTO REG 1 

OF NAME 

$$BCMTC7 



RETURN TC 

ADDR IN LINK 

REG 14 



IF SYSLST IS 
PRINTER IN PAGHEC 
SUBRCUTINE SKIP 
TO CHANNEL 1 
PRINT PAGE HDR 
ANO DOUBLESPACE. 

FRCM REGPNT 
SUBRCUTINE CNE 
LINE PRINTS ANC 
CNE SPACE IS 
TAKEN. IF SYSLST 
IS A TAPE UNIT 
A TAPE RECORD IS 
WRITTEN. 



*«**G3******«*« 

* RETURN * 
•TO ADDR IN LINK* 

• REG 14 • 



•SVC 2 $$BCMTC7 

• LIOCS PLM 

• GY2A-5C87 



• H2 
SINGLE LINE CCUNT IS SET 
JUST PRI CR TO THIS 
POINT, IT WILL NEVER 
BE ZERO HERE AND NEXT 
SEQ INST WILL NOT BE 
REACHED FROM THIS 
PCINT. IF NO LINE 
COUNT WAS SET BY 
PROGRAMMER AN ASSUMED 
VALUE WAS ASSIGNED AT 
SUPVR GENERATION TIME. 



MOVE JOBNAME 

TO PAGE HDG 

ASSEMBLY AREA 
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Chart MD. $$BDUMPF - Standard System Dump, Prepare and Edit a Line Subroutine 
Refer to Chart 14. 



»A1«»**« 
REGPNT 



REGPNT 

•***»BL*«******** 
» MOVE X'EF' TO • 

* AREA CALLED • 

• LINE+8 FOR » 
•ASSEMBLY OF I/0» 
» OUTPUT DATA * 



•***B2******* 



REGPNT5 

#»*»*C1*******»* 
» LOAD ADDR OF 
•FSTWD IN REG 6 

* REG 6 WILL 

* POINT TO LOCS 

* ALONG LINE 



LOAD A 4 

INTO REG T 

INITIALIZE 

COUNTER 



UNPK 

•»#»«E1 *»»»*»»#»» 

• MOVE 4 BYTES * 
•FROM SAVE AREA • 

• POINTED TO BY * 
•REG 3 INTO AREA» 

• NAMED WORK * 



DECREMENT 
COUNTER IN 
REG BY i 



UNPK 4 BYTES 

FROM REG SAVE 

AREA PUT INTO 

LINE AREA 



*«»*H1»*»****»* 

SEPARATE REGS 

WITH BLANK 

PRINTABLE 

CHARACTER 



C3 ». 

EQUAL 



MOVE BLANK 

PRINTABLE 

CHARACTER TO 

LABEL FSTWD 



BLANK OUT 
ADDITIONAL 17 
BYTES (FIRST 
TWO WORDS) 



SET ALTER 

SWITCH TO 

BRANCH 



• C4 
ON FIRST TIME THRL 
LOOP FOR 2ND REG 
LINE BR WILL OCCUR 
IMMED SINCE NO NEW 
LIMIT YET SET 
IN REG 5. 



•*«*»B5*««****«« 

• INCREMENT 

• REG 6 BY 9 
•FCR NEXT UNPKD 

• WCRD PRINTING 

• LGCATICN 



• ••*«C5««««««"« 

•ADC REG 3 TC 4. 

• CFP TC REG 5 

• TC SEE IF ALL 

• WCRDS IN LIMT 

• OF LINE UNPKD 



.• NEXT «. YES 

». WORD BEYCNC 

•. LIMIT -• 
•. *C4 .• 



SET ALTER3 

SWITCH TO 

BRANCH 



Jl ». 

SWITCH 



X 
• 4 



*«**H3********* 

INCREMENT 

LINE LOCATION 

COUNTER REG 6 



LOAD 4 INTO 

REG TO 

RESET COUNTER 



. 2 • 



*«»*G4«**»«*«»» 

• RETURN * 
•TO AODR IN LINK* 

• REG ♦ 



F5 «. 

SWITCH 



• •••G5««*«"««« 

• TRANSLATE • 
•I/O OUTPUT • 
AREA TO PRINT 
•CHARACTERS • 



LOAD AODR 

OF CCB2 

INTO REG 1 
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Chart ME. $$BDUMPF - Standard System Dump, Line Test Subroutines (Part 1 of 2) 
Refer to Chart 14. 



*A1****« 
PRNTLN 



PRNTLN 

»«***B1***« ••**•• 
•TSTCOR MF» 

•TEST IF ADDR IN* 
•LIMIT OF PRES- • 
*ENT OMP PORTION* 



»*#* *MF-E4,J2 



* * 



LSTLN 

*»»*#C1 ********* 

* SET AND 

* TRANSLATE 

* LOCATION CTR 

* REG 7 AS LINE 
•IDENTIFICATION 



**C2******* 

* SET * 
TSTPRT 

AND TSTLST1 
SWITCHES 

* TO NOP * 



NOP 
BRANCH 
TO EOJ 
ROUTINE 



»*#»»C3******** 

* RE-INDEX 

* ENDLIN INSTS 

* BY X»00« 



ENDLIN 

*«»»«01******««* 

* IF LAST LINE 
*COND REG 7 IS 

* INDEXED 48 
•BYTES TO PT TO 
•LAST LINE ADDR 



•EDIT AND WRITE 

• LINE NOW IN 

* OUTPUT AREA 



D3 *. 

.• NOP «. 

.* AFTER «. 

.SUPVR PART OF. 

*. DUMP .• 



.« NOP *. 

IF NO CE 

AREA 

.SPECIFIED. 



X C0RE35 
.*. TPMARK 
F3 «. *»»**F4*****»*«* 
* BR IF •. »LD ADDRESSES OF 
SYSLST •. BR •CCW'S IN REG 1 * 
IS TAPE ...... x# sthrf rrw<5 


UNIT .* 


♦ ADDR FROM 
•REG 1 INTO CCB2 



•TEST IF ADDR IN* 
•LIMIT OF PRES- • 
•ENT DMP PORTION* 



###*H1««»«***»« 

COMPARE CHARS 

TO SEE IF 

NEXT LINE 

SAME AS ONE 

JUST WRITTEN 



LOAD 

REG 1 

WITH ADDR 

OF $$BEOJ3 



«*«»H3«****«** 

MOVE X'10% 

NORMAL EOJ, 

TO SUBTASK'S 

PIB FLAG 

BYTE 1 



•»H4****»»* 

•CHANGE CCWS* 

TO BSR COMMAND* 

» SET TAPSYS1 * 

♦ SWITCH TO • 

* UNCOND BR • 



****J1 •*•*•*••* 

INCREMENT 

REG 7 BY 48 

BYTES, POINT 

TO START ADDR 

OF NEXT LINE 



SVC 2 

$$BEOJ3 

CHART FA 



LOAD ADDRESS 

OF OUT2 

INTO REG 14 
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Chart MF. $$BDUMPF - Standard System Dump f Line Test Subroutines (Part 2 of 
Refer to Chart 14, 



2) 



•A2*»*»* 
TSTCOR 



*»»»*B2****«***«* 
»PT REG 3 TO 48 • 

* BYTE STG AREA ♦ 
«PT REG 5 TO ENO« 

* FOR ONE PRINT * 
•LINE OR RECORD * 



TSTLST X 

»#»»#B4** «*«»»«•* 
•GET ENDING ADDR* 

• OF NEXT LINE * 

• TEST IF IT IS • 

• LAST LINE • 



• SKIP TO 1 ON » 
•PTR WRITE PAGE • 

• HDR LINE OR ROD* 



CMPCOR 

• COMPARE REG 5 • 
•END OF LINE PTR* 
•TO REG 8 LIMIT • 

• OF PRESENT • 
•PORTION OF DUMP* 



NEXT 
LINE LAST 
. LINE 



PREPARE FOR 
LAST LINE BY 

INDEXING 
ENOLIN INSTS 



.• SW • 

NOP IF 2 
LINES 
. SAME 



«*»#D5«*«*««««* 

• RETURN • 
•TO ADDR IN LINK* 

• REGISTER • 



F2 ». 

.» LINE * 
• TO BE 

PRINTED 
•-STILL IN 
•.LIMIT.* 

*»NO 



»*»#»G2********« 
*LD REG 8 LIMIT 
« INTO LINE END 
• REG 5 TO SET 
•EXACT DUMP END 
•CLEAR I/O AREA 



.» NOP IF 2 
*. LINES 
». SAME 



CLRLIN X 

* CLEAR*OLIT / fuT**« 

• LINE AREA * 

* SET UP * 

• — SAME — ♦ 



• ME • 

♦ Bl« 

PRNTLN 



SET LAST 

LINE SWITCH 

TO BRANCH 



WRITE •. BR 
LAST LINE .*... 
. SWITCH .« 



•WRITE LINE WITH* 

• STG LOC INDEX * 

• AND — SAME — * 



* SET SWS • 

AT TSTPRT 

AND TSTLST1 

TO BRANCH 



•«**»K 4** •***•*** 

• LOAD ADDR OF • 
•LAST LINE FROM • 

• REG 7 PLUS • 

• 48 BYTES ON * 
♦LAST LINE COND • 
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Chart MG. $$BDUMPB - Standard System Dump, Initialization for BG Storage Dump on Printer 
or Tape 

Refer to Chart 14. 



IJBDMB33 

START A 

•****B1******** 
» LOAD ADDRESS 

* OF PTLINE 

* OUTPUT AREA 
» FOR PRINTER 
» INTO REG 4 



»#*C1»»«««*» 

TAPE REG 

SET 

BY $$BDUMP 

IS TESTED 



«***B3*«*****» 

LOAD ADDRESS 

OF SKIP TO 

CHANNEL 1 

CCW INTO 

REG 1 



SYSLST 

A 

TAPE 



»»*»E1» ******* 

LOAD ADDRESS 

OF CCW1 FOR 

TAPE INTO 

REG 1 



**«»F1********* 

DECREMENT 

REG 4 BY 1 TO 

POINT TO ADDR 

OF TPLINE 



•••*G1 ********* 

MODIFY MVI 

INSTRUCTIONS 

THAT SET UP 

CCW OP CODES 

FOR TAPE OPER 



* SET CCW FOR 

* COUNT OF 121 
•AND NOP PRTRET 

* FOR TAPE OPER 



»««*C3********* 

STORE ACCRESS 

OF OUTPUT 

AREA FROM 

REG 4 INTO 

WRITE-CCW 



STORE AODRESS 
OF EITHER 

CCWO OR CCW1 
INTO CCB 



LOAD ADDRESS 

OF CCB 

INTO REG 1 



* LOAD WORD * 
•LENGTH CONSTANT* 

* WRDLTH INTO * 

* REG 4 * 



ZERO REG 12 
TO USE FOR 
PAGE COUNT 



•»»H3 *♦«»*•**• 

ZERO REG 2 

TO USE FOR 

LINES PER 

PAGE COUNT 



NO .* FLOATING *. 

...•.PCINT FEATURE. 

•. PRESENT .« 



«*C5*«**«*» 
•NOP BRANCH • 

• SWITCH FPSW 
SO FLT POINT 

* REGS WILL 

« DUMP * 



* MULTI • 

PROG SYSTEM 
•ENVIRONMENT* 



««««E5*****«««« 

MOVE X«78« 

INTO CORE+3, 

GET INDICATOR 

TO PRCB PROG 

BEGIN POINT 



NOTEST 

»##»#F5 «*»•«•••» 
» BRANCH AROUND 
« INSTRUCTIONS 
•USED TC MODIFY 
• PROGRAM FOR 
» FP AND NPS 



****J3 ««••**•*• 

GET BEGIN 

AND END OF 

FIRST LINE OF 

REGS INTO REG 

3+5 



*»#K3*«**«* 
LOAD THE 
ADDRESS OF 

GPR INTO 
REGISTER 



14 



* 3 « 
• **• 
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Chart MH. $$BDUMPB - Standard System Dump f BG Dump on Printer or Tape 
Refer to Chart 14. 



• ANY 

SPACE LEFT 
«. ON PAGE . 



SKIP TO 1 

WRITE HDR 

OR TAPE RCD 



SET UP PRINT 
LINE WITH CE 
AREA HEACER 



»*«»B1»«»*»»*» 

SET HOG FOR 

FIRST LINE 

GENLREGS AND 

CONTROL BYTE 

FOR TAPE 



EDIT ANO 

WRITE GENL 

REGS 0-7 



»*»»»D1»**»»***« 
•POINT TO REG 8 
•SAVE AREA INFO. 
• CHANGE PRINT 
•LINE HDR INFO. 



».£!•••*•• 

CHANGE 

NOP INST 

AT LABEL 

LST TO 

BRANCH 



C0RE3 
YES . 



CE «. 

AREA TO 
.BE DUMPED.* 



PRINT CE 

AREA 

HEADING 



STORE FP 
REGS INTO 
SAVE AREA 



•••••C3*«««**«« 

• STORE FP 

• REGS FROM BG 
•SAVE AREA ♦ 88 

• INTO SAVE 



GETMPSST 

»»»»»D2»»»»«»*»» 

•GET PARAMETERS 

FOR LOC. SAVE 

INTO REGS 

3 AND 5 



• E3 
THIS IS WHERE PROBLEM 
PROGRAM BEGINS, THAT 
IS, THE LAST DIGIT IS 
A ZERO, (E.G., 1F0, 
2F0, ETC). 



••Gl» 

• RESET 

BRANCH 

AT LABEL 

LST TO NOP 



»«*»*H1»»**»*»»» 

• SET LOWER AND 
» UPPER SAVE 

• AREA LIMITS 

« FOR REGS 8-15 
•IN REGS 3 AND 5 



*»G2*»«»««» 
•CHANGE NOP • 

• AT BLNKST 
•TO UNCOND. BR. 

• TO TRANS 
•(CHART MK) » 



LCAD LTA 

ADDR-4 INTO 

REG 8 FOR 

ADDR 

COMPARE 



EDIT AND 

WRITE GENL 

REGS 8-15 



• EDIT AND • 

• WRITE SUPERV • 
•PORTION OF STG.« 



35 
••••C4«»****** 

MOVE CONTROL 

CHARACTER 

TO OUTPUT 

AREA 



MOVE LABEL 

LENGTH 
HEADING TO 
OUTPUT AREA 



**E4*«*««»* 

• RESET ♦ 
BRANCHES 

AT 0UT2 AND 
C0RE2 

• TO NOPS • 



••••«F4**«»*»*»» 

• LOAO REGS 3 

• AND 5 TO 
•POINT AT LABEL 

• LENGTH INFO 



••••C5«»*»««»»« 

GET START ANC 

END ADDR CF 

CE AREA IN 

REGISTERS 

7 AND 8 



•STCRE STARTING 

• LIMIT If* 

• PAGHEC 



ADDRESS 
BOUNCARY 
. CORRECT 



••••*F5««<«««««« 

• CORRECT REG 7 

• TO PT TG NEXT 
•MULTIPLE OF 16 

• WCRD BGUNCARY 

• «E3 



MODIFY 
ALTER3 SW 
FROM UNC 
BR TO NOP 



•»G5«« 

* MODIFY 
ALTER SW 
CF REGPNT 

SUBROUTINE 

• TO NOP 



WRITE LINE 

OR RECORD OF 

LABEL INFO 



•CLEAR I/C LINE 

• AREA MOVE 

• PROB PROG 

• HEADING IN 



• TO PRINT • 

LINE IS 
•. NCP .• 


. BR 


"•NOP 




X 
...J5. ....... 

LCAD ADDRESS 

CF PROB PRCG 

UPPER LIMIT 

INTO REG 8 


" : 


!x 





.• FLOATING 
. PT FEATURE 
♦. PRESENT . 



MODIFY 
EOJ SW 
TO NOP 
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Chart MJ. $$BDUMPB - Standard System Dump, Prepare Page Headings and PIOCS Subroutines 
Refer to Chart 14. 



**A1«**** 
PAGHEO 



*»*«A3«*«*« 
PRNTL 



•A5****« 
PRINT 



PAGHED 

#»**#B1*******#» 

* MOVE CHAR 1 

* INTO TPLINE 

* AS CONTROL 

* BYTE FOR TAPE 
« OUTPUT 



*#***C1********** 

* MODIFY OP * 
•COOES IN CCW'S * 

* FOR SKIP AND * 
•SPACE AND CLEAR* 

* PRINT LINE * 



****»D1 ********** 

* INCREMENT * 

* REG 12 FOR * 
•PAGE COUNT CONV* 

* TO DECIMAL * 
•STORE SAVE AREA* 



»#**B2** ******* 
MOVE JOB DATE 

FROM COMREG 
AND PAGE NO. 
TO PRINT LINE 
ASSEMBLY AREA 



*****C2********* 

* INSERT LINE 
•COUNT PER PAGE 
» FROM COMREG 

* INTO REG 2 



DECREMENT 

LINE COUNT 

BY 1 



I/O *. YES 
OPERATION .*... 

.COMPLETE .♦ 



•*»*C4******«* 

SVC 7 

PROB PROGRAM 

WAIT 



*B5 
IF SYSLST IS PRINTER 
IN PAGHED SUBROUTINE 
SKIP TC CHANNEL 1 
PRINT PAGE HDR AND 
DOUBLE SPACE. 

FROM REGPNT 
SUBROUTINE ONE LINE 
PRINTS ONE SPACE 
TAKEN. IF SYSLST IS 
TAPE UNIT A TAPE 
RECORD IS WRITTEN ON 
SVC 0. 



***•• 04** ******** 

* NOP CCWO * 
♦FOR BODY PRINT * 

* AND MODIFY * 

* CCW1 OP CODE * 
♦FOR TAPE OR PTR* 



♦UNPACK PAGE NO. 

* PUT IN HEADER 
♦ASSEMBLY AREA, 

♦ CLEAR SIGN 



.♦ORDER DIGITS. NO 
*. OF PAGE NO. .*... 
*. ZERO .* 



*****G1********** 

* SUPPRESS * 

* LEADING ZEROS * 
•BY MOVING BLANK* 

* INTO HI ORDER * 
•DIGIT OF PG NO.* 



HI *. 
.* 2ND *. 

.* HI ORDER *. NO 
.DIGIT OF PAGE.*..) 
*.NO. ZERO .* 



*****J1*« *»•*••• 
♦SUPPRESS LEAD- 
ING ZEROS MOVE 
•BLANK INTO 2ND 
•HI ORDER DIGIT 
* OF PAGE NO. 



NOTZERO X 

•••**KI********** 
•CLEAR SAVE AREA* 

* AND MOVE * 
♦JOBNAME TO PAGE* 

* HEADING * 

* ASSEMBLY AREA * 



• SYSLST ♦. YES 

ASSIGNED TO .*.... 
». PRINTER .* 



*F2****** 
*G3 



*G3 
SINCE LINE COUNT IS SET 
JUST PRIOR TO THIS POINT, 
IT WILL NEVER BE ZERO 
HERE AND NEXT SEQ IN- 
STRUCTION WILL NOT BE 
REACHED FROM THIS POINT. 
IF NO LINE COUNT WAS SET 
BY PROGRAMMER, AN ASSUMED 
VALUE WAS ASSIGNED AT 
SUPVR GEN TIME. 



LOAD ADDRESS 
OF SYSLST 
INTO REG 



«*.#G5****««« 

RETURN 

TO ADDR IN 

LINK REG *H5 









*H5 










IF 


ROUTINE IS 








ENTERED FROM 




; 




INITIALIZATION 


**H4*< 






RTN 


EXIT IS TO 








GPR 


, CHART MH. 


* TURN 


F(l\/ 


* 






* SWITCH 


ON 


IN * 






• COMRE 


i + 


89 * 






***•*•< 




* 







**•* j 4«« ••**•* 

LOAD ADDRESS 

INTO REG 1 

OF NAME 

$$BCMTC7 



«**»K4****«»»«* 
•SVC 2 $$BCMTC7 

• LIOCS PLM 

• GY24-5C87 
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Chart MK. $$BDUMPB - Standard System Dump, Prepare and Edit a Line Subroutine 
Refer to Chart 14. 



REGPNT X 

•♦#»»B1********» 

* BLANK AREA 

* CALLED LINE 

* FOR ASSEMBLY 

* OF I/O OUTPUT 

* INFO 



#B2****** 
REGPNT5 



ALTER2 X 

«««««B5«***««*«« 

• INCREMENT 
« REG 6 BY 9 
*FCR NEXT UNPKC 
» WCRD PRINTING 

• LOCATION 



REGPNT5 X 

#*«**C1**»******« 
» LOAD ADDRESS • 
» OF FSTWD INTO * 

* REG 6. REG 6 * 

* WILL POINT TO * 
•LOCS ALONG LINE* 



X 

»**D1*******« 

LOAD 4 INTO 

REG TO 

INITIALIZE 

COUNTER 



•D2«*»* 
UNPK 



*»#»#E1»**»»****« 

* MOVE 4 BYTES / * 
•FROM SAVE AREA • 
•(POINTED TO BY * 

• REG 3) INTO • 
•AREA NAMED WORK* 



DECREMENT 

COUNTER IN 

REG 



*»«*G1********* 

UNPK 4 BYTES 

FRUM REG SAVE 

AREA PUT INTO 

LINE AREA 



SEPARATE REGS 

WITH BLANK 

PRINT 

CHARACTER 



Jl ». 

SWITCH 



MOVE BLANKS 
TO LABEL 
FSTWD+4 



•SET ALTER3 
SW TO UNC. 
BR IF 

NOP 



C3 •. 

EQUAL 



• MOVE BLANK • 
•PRINT CHARACTER* 

• INTO AREA • 

• NAMED FSTWD • 



•**»E3«*»««***« 

BLANK OUT 
ADDITIONAL 17 
BYTES (FIRST 

2 WORCS) 



SET ALTER 

SWITCH TO 

UNC BR 

IF NOP 



*C4 
REG 3 IS INCREMENTED 
4 BYTES EACH TIME 
AND COMPARED TO REG 5 
TO SEE IF ALL REGS 
IN LIMITS OF THIS 
LINE UNPKD. ON FIRST 
TIME THRU LOOP FOR 
2ND REG LINE BR 
WILL OCCUR IMMEDIATELY 
SINCE NO NEW LIMIT 
YET SET FOR REG 5. 





• IF WORD •. YES 


» 


BEYOND LIMIT 




•. «C4 .• 












• NC 




X '. 








D5 •. 






Ni; 


• LAST •. 




WCRD .• 




••UNPACKED .• 










*• 


• YES 






• 








** 


.X 



E5 ». 

SWITCH 



H2 ». 
** SWITCH 



«»»»F4********* 

RETURN 

TO ADDR IN 

LINK REG *G4 



»G4 
BRANCH DURING 
GPR PRINTING ONLY. 



•««#«H3*» •••»»*• 
•INCREMENT LINE 

• LOCATION CTR 

• BY 2 

• (REG 6) 



LOAD 4 INTO 

REG TO 

RESET COUNTER 



»«*»#G5*«*«««««« 

* MOVE BLANKS 
•INTO FSTWC+107 

• IF NCT SUPVR 

• CR PRCB PRCG 

* PART CF DUPP 




• TRANSLATE • 
•I/C CUTPUT • 
AREA TC PRINT 
•CHARACTERS • 
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Chart ML. $$BDUMPB - Standard System Dump, Line Test Subroutines 
Refer to Chart 14. 



PRNTLN X 

••••»B1**»««*«*»* 
•TSTCOR ML» 

•TEST IF ADDR~IN» 
♦LIMITS OF PRES-« 
* ENT DUMP AREA * 



TSTCOR X 

•••••B3««******* 
•POINT REG 3 AT 

• START OF 48 

• BYTE STG AREA 
» AND REG 5 AT 
•END FOR I LINE 



**A4**«**«* 
• RESTORE * 

• LAST LINE ♦ 
SW TO NOP 

• AND RESET ♦ 
ENDLIN INSTR* 



GET ENC ACER 

CF NEXT LINE 

TEST IF IT IS 

LAST LINE 



LSTLN X 

•••••CI********* 

• SET AND 

• TRANSLATE 

• LOCATION CTR 

• REG 7 AS LINE 
•IDENTIFICATION 



ENOLIN X 

•••••Dl***« »*»»•• 

• IF LAST LINE • 
•COND, INDEX REG* 

• 7 BY 48 BYTES • 

• TO PT TO LAST * 

• LINE ADDRESS • 



•EDIT AND WRITE • 
•LINE OF STG NOW* 
•IN OUTPUT AREA • 



••C2******* 

• MODIFY * 

TSTLST1 AND 

TSTPRT SWS 

TO NOP 



.* PA( 
FUt 

*• 


;e 

.L 
•YES 


*. NO 

• * . 


> 
••••03* 
PAGHED 
— »-»-•-< 
SKIP T( 
PTR WRI1 
HDR LIN 


( '. 

»••»»•»»» . 

MJ* 

3 1 ON * 
rE PAGE * 
E OR RCD* 




.X '. 



CMPCOR 

••»«»E3«»»»«*»«»« 

* COMPARE REG 5 * 
» END OF LINE • 
« PNTR TO REG 8 • 

• PRESENT LIMIT • 
•OF DUMP PORTION* 



MOVE X«1C« TO * 
CANCEL CODE * 
BYTE IN PIB * 

••*••••••*••••** 



•**«E4******** 

LOAD ADDRESS 

INTO REG 1 

OF NAME 

$$BEQJ3 



NEXT 
LINE LAST 
. LINE 



••D5«*««««« 

•PREPARE FCR* 
•LAST LINE BY 
• INCEXING 
•ENDLIN INSTS 
• BY X'30' • 



.• SW •. 

. NOP IF 2 
•LINES SAKE.* 



X 
• 9 



•••*F1******** 

MOVE CONTROL 

CHARACTER 

FOR TAPE 

TO OUTPUT 

AREA 



F3 *. 

.•LINE TO*. 
•BE PRINTED 

STILL IN 
». LIMIT . 



« 3 

• •*« 



••F4****** 
SVC 2 
$$BEOJ3 
CHART FA 



.* SW 
BR .* NOP IF 

LINES 

*. SAME 



* RETURN * 
•TO ADDR IN LINK* 

* REG * 



•••••HI********** 
♦TSTCOR ML* 

»TST IF ADDR IN * 
♦LIMITS OF PRES-* 
* ENT DUMP AREA * 



•••••G3«««****** 
*LD REG 8 LIMIT 

* INTO LINE END 

* REG 5 TO SET 
•EXACT CUMP END 
•CLEAR I/O AREA 



»*H3«****** 
* MODIFY • 

LAST LINE 
SW FROM NOP 

TO BRANCH 



•••G5««***«*«« 

CLEAR 

CUTPUT LINE 

AREA 

SET UP 

— SAWE — 



••••«H5«******** 

•PRINT MJ 

»—»—•-•—•—«-»—•— 

• WRITE LINE 
•WITH LCC INCEX 

• AND — SAME — 



«»»*J1«»»»««»« 

COMPARE 

CHARS TO SEE 

IF NEXT LINE 

SAME AS ONE 

JUST WRITTEN 



WRITE 

LAST LINE 

SW 



•«J5««««««« 

•MODIFY SWS • 

AT TSTPRT 

AND TSTLST1 

TO BRANCH 



••••Kl»»»»*»»* 

INCREMENT 

REG 7 BY 48 

BYTES, POINT 

TO NEXT LINE 



X 
* 2 



X 
* 1 
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Chart MM. $$BDUMPD - Standard System Dump, Dump on Disk Device (Part 1 of 2) 
Refer to Chart 14. 



♦»#*A1»**»»*»*» 
* $$BDUMPD 



A5 

• MCVE BLANKS TC • 
•AREA NAMED LINE* 
•THIS WIPES CUT • 
•PREVIOUS INSTS • 

• UP TC X'92' • 



• LOAO AND TEST * 
•REG 3 TO SEE IF* 
•THIS IS PDUMP. » 

• REG 3 WAS 1ST * 

• IN $$BDUMP * 



CI «. 
PDUMP 

'•YES 



**D1»»»»»»* 

* SET SWS • 

•PDUMP2 TO BR, 

OUT1 TO BR, 
•OUT2 TO NOP, 
•OUT3 TO NOP* 



••••C3*»«*»*»« 

LOAD END 

ADCRESS FROM 

COMREG+32 

INTO R8 




»*»E1****»**« 

STORE LOW 

ORDER BYTE 

OF REG 2 AT 

SAVER2 

• E2 



• E2 
THIS BYTE IS ZERO OR 
NX16 AS CALCULATED IN 
$$BP0UMP FCR PDUMP 
START ADDRESS. THIS 
AFFECTS THE NUMBER OF 
DOUBLEWORDS TO BE 
BLANKED CUT IN THE 
PRINT AREA. 



* INITIALIZE 

* PAGE AND LINE 

* COUNT REGS 

* (12 AND 2 

* RESPECTIVELY) 



.• FLOATING «. NO 
.POINT FEATURE.*.., 
•. PRESENT .» 



»«F3«»****« 
♦SET SWITCH * 
* TO INDICATE 

FLPT REGS 
•TO BE DUMPED 



* LOAD REG 4 

* WITH ADDR OF 

* WRDLTH 



Fl 

SHOWN IN 

LTK 



G3 *. 

.•MULTI- ». 

PROG 

SYSTEM 

.ENVIRON- . 

*.MENT .» 



• YES 



F2 

SHOWN IN 
LTK 



*»J2**»»»»» 
MOVE •Fl* 

INTO 
PARTITION 
ID LABEL 



• BRANCH AROUND 

• ORIGIN STMT 

• TO BALI 



* MOVE F2 
•INTO PARTITION 

* LABEL 



• ••••C5«««* 

•PCINT REG 3 AT « 
•BEGIN REG 5 AT • 
•END 32 BYTES IN* 
» REG SAVE AREA « 
*(ADDR IN REG 9)* 



•••••05* ••••••*•• 

• MCVE HDG * 

• GRC-7 AND • 

• CCNTRCL BYTE • 
•FCR DISK TC I/C« 

• OUTPUT AREA • 



••••*F5«*««««**«« 
«PT REG 5 TC END* 

• CF REG 8 INFO » 
•IN REG SAVEAREA« 

• MCVE HCG AND • 
•DISK CTRL BYTE • 



•SET SWITCH AT* 

LABEL LST TO 
* BRANCH * 



ECIT REG 8 



•RESET SWITCH 

AT LST TO 
• NOP 



« PCINT PEGS 3 
•AND 5 AT BEGIN 

• AND END BYTES 

• CF REGS 9-15 

• IN SAVE AREA 



Charts 165 



Chart MN. $$BDUMPD - Standard System Dump, Dump on Disk Device (Part 2 of 2) 
Refer to Chart 14. 



.X. 



•CLEAR I/O AREA * 
•SAVE FLT PT REG* 
•LD REGS 3 AND 5* 
» WITH FLT PT • 
•LIMITS. SEE HDG» 



•EDIT AND WRITE 
•FLOATING POINT 
• REGS 



♦ SET 0UT3 
• SW TO NOP 
•(EOJ SWITCH) 



WRITE NEW 

PAGE HEADING 

RECORD 



PDUMP2 .♦. 

El ♦. 

.*" **. BR 


CHKREG2 .». 

E2 • • 

.«** REG 2 


**NOP 


«. = 

**N0 


COMM X 

#»»»»F1««***##»«« 
•POINT TO COMREG» 
•BEGINNING WITH • 

• REG 3, END • 

♦ WITH REG 5 • 


X 
•#F2««»»»*» 
•MODIFY NO. 

• OF DOUBLE 
• WORDS TO BE 

• BLANKED IN 
MVBLNK INSTR 



SET 

BLNKST SW 

TO 

BRANCH 



SET SWITCH 
AT -ALTER- 
TO BRANCH 



• Bl« 
PRNTLN 



CE •. NO 
AREA .«... 
.SPECIFIED.* 



»#«F3«»* 



SET UP PRINT 
LINE WITH 

DISK CONTROL 
CHAR AND CE 
AREA HEADER 



WRITE 
HEADING 
ON DISK 



*»««H3««««*«»» 

GET START 

AND END ADDR 

OF CE AREA 

IN REGISTERS 

7 AND 8 



CORE35 X 

• NCVE CCNTRCL 

• BYTE FOR DISK 

• TC OUTPUT 

• AREA 



»B5« 



MCVE LABEL 

LENGTH 

HEADING 

TO CUTPUT 

AREA 



RESET 
BRANCHES 
CUT2 AND 
CCRE2 TC 

NOPS 



LCAC 

REGISTERS 

3 AND 5 

WITH LINITS 

CF FIRST LINE 



SET 
ALTER3 SW 
TC BRANCH 



WRITE LABEL 

LENGTH INFC 

RECCRC 



««««G5«*«*««««« 

CLEAR OUTPUT 
LINE AREA 

^CVE — BG-- 
IN AS PRCBLEN 

PROG HEADER 



WRITE PROBLEM 

PROG HEADER 

RECCRD 



»«J1##*##*« 

RESET 

BLNKST SW 

TO 

NOP 



»#««*J3##«»»«»««# 
•LOAD LOW LIMIT • 

• DUMP AREA IN • 
•REG VIA REG 7* 
•ZERO REG 1. TST« 

• ADDR IN REG 7 • 



#***»K1«*«»»»»«» 
•LOAD ZERO INTO 

• REG 7 FOR 

• SUPERVISOR 

• BEGINNING 
» ADDRESS 



POINT REG 8 

TO LTA ADDR 

MINUS 4 
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Chart MP. $$BDUMPD - standard System Dump, Prepare Page Headings and PIOCS Subroutines 
Refer to Chart 14. 



* ADDRESS • 

ON CORRECT 
♦.BOUNDARY .* 



» ADJUST R7 TO 

* POINT TO NEXT 
•MULTIPLE OF 16 

• FOR PROB PROG 
•BEGIN BOUNDARY 



SET ALTER 

SWITCH 
TO BRANCH 



• SW • 

BRANCH TO 
♦PRINT LINE.* 



»*»E1* 

LOAD PROB 

PROG END 

IN 

REGISTER 8 



PAGHED 



#*»»«H1********** 
» MOVE CHAR » 
•INTO FIRST DISK* 

• OUTPUT BYTE * 

• AS CONTROL • 

• BYTE • 



•UNPK PAGE NO., 

• PUT IN HDR 
•ASSEMBLY AREA, 

• CLEAR SIGN 



.• HIGH •. 
•ORDER DIGIT*. 

OF PAGE NO. . 
*. ZERO .• 



• SUPPRESS LDG 

• ZEROS BY 

• MOVING BLANK 

• INTO HI ORDER 
•DIGIT OF PG NO. 



D2 •. 
.» 2ND •. 

.♦HIGH ORDER •. NO 
•.DIGIT OF PAGE.»..X 
*.N0. ZERO .* 



•••♦*E 2 *•»•••••• 

♦ SUPPRESS LDG 

♦ BY MOVING 
♦BLANK INTO 2ND 
♦HI ORDER DIGIT 

♦ OF PAGE NO. 



LINE 

COUNT 





B3**«****** 
• C3 



•C3 
SINCE LINE COUNT IS SET 
JUST BEFORE THIS POINT, 
IT WILL NEVER BE HERE 
ANO NEXT SEQ INST WILL 
NOT BE REACHED FROM THIS 
POINT. IF NO LINE COUNT 
WAS SET BY PROGRAMMER 
AN ASSUMEC VALUE WHICH 
WAS ASSIGNED AT SUPVR 
GENERATION TIME IS 
USED. 



MOVE JOB NAME 

TO PAGE HDG 
ASSEMBLY AREA 



»«**»G2*****«"« 

• MOVE JOB DATE 

• FROM COMREG 

• AND PAGE NO. 
•TO OUTPUT LINE 

• ASSEMBLY AREA 



LOAD ADDRESS 
OF CCB 

INTO REG 1 



PUT ACDR FROM 
COMREG+96 IN 
REG 6 POINTS 
TO DISK INFO 
BLOCK AREA 



•*««»F3********* 

♦ INDEX REG 6 
♦72 BYTES POINT 

♦ TO CIB 

♦ ASSOCIATED 

♦ WITH SYSLST 



»»***G3"«*«*»*« 

• CMP CURRENT 

• AOOR WITH END 

• ADDR IN DIB 

• TO SEE IF 
•EXTENT IS FULL 



• MOVE CURRENT 
•ADDR IN FORMAT 

• CCHHR INTO 

• FIELD CALLED 

• SRCHBK 



INSERT RECORD 

NO. INTO REG 6 

FROM SRCHBK+4 

REDUCE REC 



•»»»C4********* 
STORE REDUCED 
ADDR BACK IN 
SRCHBK RELOAD 
REVISED ADDR 
INTO REG 6 



**»«#C4***^**^^»- 
•STORE ADDR FROM 

♦ REG 6 INTO 

♦ SEARCH AND 

♦ SEARCHl CCW'S 



»»***E4*******"* 

• LOAC ADDR OF • 

• SEARCH CCW IN • 

• REG 6. STORE * 
•THIS IN TIC CCW* 
•AS THE TO ADDR * 



• LOAD ADDR OF 
•SEARCHl CCW IN 

• REG 6. STORE 

• THIS IN TIC1 

• CCW TO ADDR 



REDUCE LINE 

COUNT IN 
REG 2 BY 1 



**««*e5****««***« 

* TEST UNDER * 
•MASK IF TRAFFIC* 

* BIT POSTED • 
« IN CCB « 



SYSLST 
EXTENT 
FILLED 



•••*»G4********** 
♦LOAD ADDR INTO ♦ 
•REG 6 OF DSKLIN* 

♦ (THE DATA • 

♦ OUTPUT AREA) * 



**«*H4********* 

STORE DSKLIN 

ADDR IN CCW 

USED TO WRITE 

COUNT KEY 

AND DATA 



I/O 


• 


. YES 


OPERATION 






COMPLETE 


















♦ NO 






X 






*05****«« »* 




SVC 7 




• . 


PRCE PRCG 






WAIT 




• 







»»«E5****** 

RETURN 

TO ACDR IN 

LINK REG 



**#*J1****»**«« 

EXEC INST 

USED TO CLEAR 

120-BYTE 

OUTPUT AREA 



»»**»K !***♦**»**• 

* INCREMENT * 

* REG 12 FOR * 

* PAGE COUNT, * 

* CONV TO DCML, • 
♦STORE SAVE AREA* 



INSERT LINE 

COUNT PER PAGE 

FROM COMREG 

I NTO REG 2 



DECREMENT 

LINE COUNT 

BY 1 



♦ STORE CURRENT 
♦ADDR FROM REG 6 
» INTO SEEK CCW 



*»***K3««**«»*** 

* MOVE CURRENT 
♦ADDR TO OUTPUT 

* AREA NAMED 
♦DSKLIN FOR USE 

* AS COUNT INFO 



**«*J4******»*» 
LOAD AOOR OF 
SEEK CCW INTO 
REG 6. STORE 
THIS ADDR IN 
CCB 



*«*K4******** 

SVC 

SEEK SEARCH 

ID EQ WRITE 

CKD RCD. 

VERIFY. 
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Chart MQ. $$BDUMPD - Standard System Dump, Prepare and Edit a Line Subroutine 
Refer to Chart 14. 



••••Al******** 
REGPNT 



»**»B1»*»*»»«»#» 

BLANK AREA • 

CALLED LINE • 

FOR ASSEMBLY * 

OF I/O OUTPUT * 

INFO * 



*»»»*C1*«*»»***«« 

•LOAO AODR FSTWD* 
•IN REG 6 - WILL* 

* POINT TO LOGS * 
•ON LINE. PUT A« 

• 4 IN REG ♦ 



• MOVE 4 BYTES 

• FROM SAVE AR1EA 

• TO WORK AREA 



•B2****** 
REGPNT5 



*»**»A3«««*«*««** 

•CMP REG 3 INDEX* 
•BY REG 4 TO REG* 
•5 LIMIT TO SEE • 
•IF ALL WRDS FOR* 
*1 RCO UNPACKED * 



.* NEXT *. 
.*WORC STILL 
. IN PRESENT 
*. LIMIT . 



• B4 
ON FIRST TIME THRL LOOP 
FOR 2ND REG LINE WHEN 
REG 8 EDITED BR WILL 
OCCUR IMMEDIATELY SINCE 
NO NEW LIMIT YET SET 
FOR REG 5. 



#C2***» 
UNPK 



BR 
ON COMREG 
. DUMP SW . 



»»»G4***«*»* 

RETURN 

TO A DDR IN 

LINK REG 



«««««C5*»**««««« 

» MCVE BLANK 
• PRIMT CHARS 
•TO LABEL FSTWC 
•IN OUTPUT AREA 



• BLANK OUT 

• FIRST N 

• CCUBLEWORCS 

• CF CUTPUT AREA 

• «G5 



UNPK1 X 

•***«E1********* 

* DECR REG BY 

* 1 UNPK 1 WORD 

• PUT IN OUTPUT 

• AREA SEPARATE 
•WOS WITH BLANK 



•••E3«««*««« 

* TRANSLATE 
« ASSEMBLED 

* OUTPUT TO 

* PRINTABLE 
•CHARACTERS 



»»E4««««* 
PRNTL 



SET SWITCH 

AT ALTER TC 

NCP 



ALTER3 .*. 






BLNK2 




PRNTL 




X 


Fl *. 








•••»«F2«**«*«*« 








:3««#»«««»«« 










* MOVE 4 BYTES 










.* BR • 


BR 






* PRINTABLE 






LOAD ADDRESS * 


*. FOR LABEL 








X* BLANK CHARS 
* TO FSTWD + 4 


* 


* 


OF 


CCB INTO » 


*. SWITCH •• 








REG 1 * 


**# »** 








* 


«» 


• • 




•*••«••••••• 


• NOP 
















. 






































• 7 *... 
















X 




















#«#» X 
















• MP • 


ALTER .*. 








X 








• E3* 


Gl *. 








*«G2****»** 




























.» BR • 


RR 






• SET SWITCH 


« 






PRINT 


♦ . FOR 








• AT ALTER3 










•.PDUMP SW •• 




. 




♦ TO NOP 


« 






























X 














• NOP 


»»» 


» 


. 










»*#* . 






















*> 














* 6 «... 








X 


























• ••• X 


















ALTER1 .». 








• 7 • 










HI ». 








» » 




























.• REG • 


. NO 
















*. EQUAL 


.«.. 

















INCREMENT * 

REG 6 BY 2. ♦ 

RESET CTR IN ♦ 

REG TO 4. ♦ 



•»#*H4»»»»»»*** 

BLANK OLT 

LAST WORD IN 

OUTPUT AREA 

DURING COMREG 

DUMP 



J4 *. 
SWITCH 



*##**K1**»*»»»»*» 
♦INCREMENT REG 6* 
♦BY 9 - POINT TO* 
•NEXT LOC ALONG ♦ 
*LIN€ FOR UNPKO ♦ 
♦ OUTPUT WORD • 
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Chart MR. $$BDUMPD - Standard System Dump, Line Test Subroutines 
Refer to Chart 14. 



PRNTLN 

••#**B1********** 
•TSTCOR MR» 

•TEST IF*ADDR IN* 
•LIMITS OF PRES-* 
• ENT DUMP AREA • 



LSTLN 

»**»»C1»»***«*»* 

* SET AND 

• TRANSLATE 

* LOCATION CTR 

• REG 7 AS LINE 
•IDENTIFICATION 



***»»D1**»**«*»*» 
• IF LAST LINE • 
•COND, REG 7 IS • 
•INDEXED 48 BYTS« 
» TO POINT TO • 
•LAST LINE ADDR • 



•EDIT AND WRITE 
•LINE OR RECORO 
• OF MAIN STG 



B2 •. 

SAME 

***YES 



* MODIFY • 

TSTLSTl AND 

TSTPRT SWS 

TO NOP 



TSTCOR X 

•«*««B3******««*« 
• PT REG 3 TO • 
•START OF 48 BYT« 
•STG AREA.PT REG« 
♦5 TO END . WILL* 
•BE 1 PRINT LINE* 



• SKIP TO WRITE 
•PAGE HEADER OR 

• RECORD 



CMPCOR 

*»«**E3*********> 

• COMPARE REG 5 • 

• END OF LINE • 

• PNTR TO REG 8 « 

• LIMIT OF PRES • 
•PORTION OF DUMP* 



• SW TO NOP. • 
• STOP INDEXING 
♦ENDLINS WITH • 



TSTLST X 

••««*B5*««**«**« 

• GET NEXT LINE 

• ADDR END 

• TEST IF IT IS 

• LAST LINE 



NEXT 
LINE LAST 
. LINE 



♦MQ »CORE35 



»#D5««»«»«» 
•PREPARE FCR« 
• LAST LINE 

BY INDEXING 
•ENDLIN INSTS 
• BY X'30' • 



TSTLSTl .«. 

E5 •. 

BR .»*NOP IF 2 
...•. LINES 
•. SA^E 



.•LINE TO*. 
BE PRINTEO 

STILL IN 
. LIMIT . 



*»*»»F 4** ****** 

* MOVE X'10' TO 
» CANCEL CODE 

* BYTE IN PIB 



• NCP 
'...• 3 



F5 «. 
.• SW » 

• NOP IF 2 

LINES 
*. SAME 



BTSTCR 

»*»»#G1********** 
•TSTCOR MR* 

•TEST IF*ADDR IN* 
•LIMITS OF PRES-* 
* ENT DUMP AREA * 



****H1»«»«»»*» 

CMP CHARS 

TO SEE IF 

NEXT LINE 

SAME AS ONE 

JUST WRITTEN 



RETURN TO 

ADDR IN LINK 

REGISTER 



•»*»»G3«********» 

*LD REG 8 LIMIT * 

* INTO LINE END « 

* REG 5 SETS * 
•EXACT DUMP END * 
•CLEAR LINE AREA* 



•*H3******* 
MOCIFY 
LAST LINE 
SW FROM 
NOP TO 
UNC BR 



LOAD ADDRESS 
INTO REG 1 
OF NAME 
$$BEOJ3 



*»H4***»* 
$$BEOJ3 



CLEAR PRINT 

AREA, SET UP 

— SAME — 



•WRITE LINE WITH* 
« STG LCCATICN • 
• AND —SAME— • 



INCREMENT 

REG 7 BY 48 

BYTES POINT 

TO NEXT LINE 



WRITE 
LAST LINE 
. SWITCH . 



«.J5*«***«* 

•NCOIFY SWS « 

AT TSTPRT 

AND TSTLSTl 

TO UNC BR 



* SVC 11 
•RETURN CTRL TO 

* PROB PROG 



«««««K5«««««««*** 

«LD ADDR OF LAST* 
•LINE FROM REG 7* 
• INDEXEC BY 48 • 
« BYTES ON LAST * 
•LINE CONDITION * 
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Chart NA. $$BPDUMP - Standard System Dump, Parameter Storage Dump Monitor 
Refer to Chart 15. 



•••Al******* 
$$BPDUMP 



IJBPDP33 

START X 

#»»*»B1»»»»*»**» 
•ADD LTK TO REG 
•10 TO DISPLACE 
•INTO PIB TABLE 

• TO PARTICULAR 

♦ PROG INVOLVED 



**#*»C1**»»*»»*»« 
• INCREMENT REG <?• 
•TO POINT TO LGL* 
•TRANS BUCKET - • 
•GET ADDR OF LGL* 
•TRANS SAVE AREA* 



*****D1********** 
♦LOAD LUB TABLE * 
•ADDR INTO REG 4« 
•LOAD REG WITH* 
•ADDR FROM REG 0» 
* IN SAVE AREA • 



*»»*A2******** 
ZERO REG 7 
SHIFT REG 6 
4 POSITIONS 
TEST RESULT 
IN REG 7 



••#»«C2*»«««««»* 

• SHIFT REG 7 

• 30 POSITIONS 

• MPY BY 9 
•LOAD RESULT IN 
» REG 2 



•STORE LOW ORDER* 

* CHAR FROM RO * 

* IN FLD CALLED * 

* SAVE. TEST * 
•WITH X'03« MASK* 



*•*•* 02 •**•«•*•** 
•SUB 2 IN REG 2-* 
•GETS NO. BLANKS* 
•NEEDED TO START* 
* DUMP PRINT * 
♦AT PROPER POINT* 



*»#*«E2»****»***« 
• PT REG 6 TO • 
•NEXT LOWER ADDR* 
•DIVISIBLE BY 16* 
*LD TO REG 7 FOR* 
♦DUMP START ADDR» 



#»#»*C3***»««»*« 

* REG 4 PNTR TO 
» LUB TABLE IS 
•INDEXED TO GET 

• SYSLST ENTRY 



••••*D3*«******«« 

* SYSLST ENTRY * 
*ADDR IN PUBTAB * 
*CALC BY 8 TIMES* 

* LUB PTR ADDED • 

* TO PUB ADDR • 



•»««#E3««««»*»»« 
•DEVICE TYPE OF 

* SYSLST FROM 

* PUB TABLE PUT 
•IN FIELD NAMED 

* ZONE FOR CMP 



DISKRT X 

»***»A4********* 
•LOAD ADDR INTO 

* REG 1 OF NAPE 

* $$BDUMPD LD 
*A 1 INTO REG 3 
•TO IDENT PDUMP 



*»B4****** 

SVC 2 

$$BDUMPD 

CHART MM 



FGJOB X 

•••**C4** •»••••• 
•GET SYSTEM LUB 
•INDEX FOR THIS 

• PARTITION AND 

• CALCULATE LLB 

• TABLE ENTRY 



TEST SENSE 

DATA FOR FILE 

PROTECTION 



YES .• SYSLST • 

FILE PROTECT 

*. ON .* 



IS 
SYSLST 

.ASSIGNED 



»****E4********** 
♦GET DEVICE TYPE* 
♦FOR SYSLST FROM* 

* PUB AND MOVE * 

* TO ZONE * 

* FLD * 



LOAD ADDR 

OF CCB INTO 

REG 1 



.*. 


MAIN2 X 


Fl *. 


*»«»»F2********* 


♦ REG *. 


♦ LD REG 8 WITH 


POINTING ». NO 


•ADDR IN REG 5*4 


TO A WORD .*.... 


♦ COMP REG 8 TO 


BOUNDARY .* 


♦ HIGH STG ADDR 


*. .» 


• FROM COMREG 



SYSLST 

A DISK 
DEVICE 



•. YES DISK 



SYSLST 

DEVICE 

TYPE 



**»#*G1*****»**»* 
* PUT STARTING * 
•DUMP ADDR FROM • 
•REG IN REG 5 • 
•ZERO REG 2. LD» 
•REG 5 INTO REG6» 



***#*H1****«»««» 
•AND INTO REG 6 

• A WD ALIGNING 
•FLD TO PUT REG 
•6 ON AT LEAST A 

• WORD BOUNDARY 



» COMPARE REG 6 

• WITH HIGH STG 
•ADDR CONTAINED 
« IN COMREG FOR 

* INVALID ADDR 



ADDR •. YES 
ITHIN STG .*... 

LIMITS .« 



«««»«H2****««««* 

* LOAD LIMIT TO 
*REG 8 TO FORCE 

* VALID UPPER 
•LIMIT FOR DUMP 



G3 ». 

• IS 
SYSLST 

A TAPE 
UNIT 



*H3« 



* LOAD A 1 INTO 
•TAPE INDICATOR 
•REG 14 TO TELL 
» $$BPDUM1 THAT 
•SYSLST IS TAPE 



PROCED 

•••••J2 ***••••• 

* SUBTRACT 1 

* FROM DUMP 

* END ADDR NOW 
« IN REG 8 



•LOAD ACCR INTO 

• REG 1 OF NAME 

* $$BPDUM1 



SYSLST 

A TAPE 

UNIT 



•*»»*H4********* 
»LD 1 IN REG 14 
•TO IND TAPE DR 

• LOAD ADDR 
•FOR SENSE BYTE 

• DATA IN CCW 



*«*»J4#»»*»»»»» 
LOAO ADDR OF 
SENSE CCW IN 
REG 3. STORE 
THIS ADDR IN 
CCB 



* I/C 

CPERATION 

♦.COMPLETE . 



SVC 7 

PRCB PROG 

WAIT 



•SVC 11 RETURN 
•TC TASK SELECT 

• IN SUPVR 



.» VALID ». N 
.DUMP STARTING.*. 
». ADDR .» 



X 

••#«*K2****#*«**« 
♦LOAD PUB TABLE * 
•ADDR INTO REG 6* 

• ZERO REGS * 

* 13 AND 14 * 



««K3«*«**» 

SVC 2 

$$BPDUM1 

CHART NB 



*K5 
IF REG 7 IS AT 
THIS PCINT, IT 
INDICATES REG 6 
ADDR IS A MULTIPLE 
OF 16. 
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Chart NB. $$BPDUMl - Standard System Dump, Initialize Parameter Dump on Printer or Tape 
Refer to Chart 15. 



* $$BPDUM1 • 



IJBPD133 X 
START .*. 

Bl *. 

.♦ DOES *. 

.•LINE COUNT 

*. REGISTER 2 

*. CONTAIN . 

♦BLANKS.* 

"*N0 



»#»**C1 »*****♦♦♦ 
•STORE THE DATA 
•INTO THE FIRST 

• WORD OF THE 

• BLANK OUT 

• ROUTINE 



#•01******* 
• SET BLANK * 
•SWITCH BY OR-» 
•ING AN UNCONDI- 
TIONAL BRANCH* 
♦INTO ALTER * 



• BLANK OUT 
•INITIALIZATION 
» ROUTINE AREA 



•««»B5*«»««**«« 

MCVE HEACINGS 

FOR REGISTERS 

8-15 INTO 

OUTPUT AREA 



PDUMP1 X 

•**»»C2 •»••»•»*• 

• LOAD ADDRESS 

• OF FIRST BYTE 

• FOR PRINTER 

• OUTPUT AREA 

• INTO REG L 



• RELOCATE 

• ADDRESS IN 
» SPACING 
•COMMAND BLOCKS 



»*»»*C4«* »•«•«*»« 


•«««*C5********* 


•PAGHED ND* 


• MCVE CONTRCL 




• BYTE TO SKIP 


* PRINT THE * 


• CNE LINE AND 


* HEADER * 


•PRINT INTO TAPE 


» LINE * 


» CUTPUT BYTE 




••****•«•*«••••• 



»*»#D4*»»*»*«»« 

LOAD ENDING 

ADDRESS OF 

THE REGISTERS 

0-7 INTO 

REG 5 



••#D5««***««« 

ACTIVATE 

BRANCH AT 

INSTRUCTION 

LST IN EDIT 

SUBRCUTINE 



* LTK=X'10« 

BACKGROUND 

♦. PROGRAM . 



•*F1*»***«* 

♦SET SWITCH • 

•IN FGNAME FOR* 

♦ MOVING FGNAME 

♦DATA TO HEAD ♦ 

LINE OUT AREA» 



*»#»»E 2 »*»*»••**• 
» LOAD ADDRESS • 

• OF SKIPPING • 

• TO CHANNEL 1 • 
•CCW INTO REG 1 * 


»#*»»E3****»»*«»« 

• LOAD ACCRESS • 
« OF FIRST BYTE • 
« OF AREA FOR « 

• TAPE OUTPUT ♦ 

• INTO REG 1 * 


••♦#»E4***«*****» 

♦ LOAD THE ♦ 

♦ BEGINNING ♦ 

♦ ADDRESS OF ♦ 

♦ REGISTERS 0-7 ♦ 

♦ INTO REG 3 ♦ 


••*«*E5**«*«««««« 

•REGPNT NE* 

* ECIT • 

• REG 8 • 



Gl *. 
.* DOES •. 

.* LINK REG • 
.CONTAIN TAPE 
*. SYSTEM .* 



*»**F 2** ******* 

STORE THE 

CCW ADDRESS 

IN THE OUTPUT 

COMMAND BLOCK 



•••G2*»»»*«* 

LOAD THE 

ADDRESS OF 

THE SECOND 

CCW INTO 

REG 1 



••**«F3*******« 

• RELOCATE THE 
» AGDRESS IN 

• THE CCW FOR 

• WRITING ON 

• TAPE 



»«***F4**»****** 

• MOVE ADDRESS 
•OF HEADING FOR 
» REGISTERS 0-7 

* INTO LINE 
» OUTPUT AREA 



•»«#*G3*«******* 
« STORE THE 
•ADDRESS OF THE 

• CCW INTO THE 

* OUTPUT CCB TO 
•PRINT A HEADER 



♦ MOVE CONTROL * 

♦ FOR SKIPPING • 
» 2 LINES AND • 

♦ PRINTING INTO * 
•TAPE OUTPUT CCW* 



*#**H2********« 
STORE ADDRESS 
OF THE SECOND 
CCW INTO THE 
OUTPUT CCB TO 
PRINT A LINE 



* EDIT AND * 
♦PRINT REGISTERS* 

* 0-7 * 



.»»F5«. ...... 

RESET THE 

LST NC-CP 

INSTRUCTICN 

TC NOP 



«««**G5***«*«««« 

• LCAD ADDR CF 

• REG 9 DATA IN 
•SAVE AREA INTC 

• REG3 



LCAD END 
ADDRESS GF 
REGISTER 15 
INTO REG 5 



»»*«»J2******»»*» 

♦ INITIALIZE PAGE* 

♦ AND LINE * 

♦ COUNT IN REG ♦ 

♦ 12 AND REG 2 ♦ 

♦ RESPECTIVELY * 



♦ «».*J4***< 
♦POINT REG . . 

♦ END OF REG 8 

♦ INFO IN REG 

♦ SAVE AREA 



TG * 



EDIT AND 

WRITE REGS 

8-15 
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Chart NC. $$BPDUM1 - standard System Dump, Parameter Storage Dump on Printer or Tape 
Refer to Chart 15. 



•EDIT AND PRINT 
•FLOATING POINT 
• REGISTERS 



.FLOATING*. 
NO .* POINT •• 
...♦FEATURE PRESENT* 



* MOVE X'EF' 

• INTO THE FIRST 
» WORD ADDRESS 

» OF THE LINE 



»*»**D1********« 

* USE EXECUTE 

• INSTRUCTION 
•TO EXTEND X«EF« 
•THROUGH THE 32 
•BYTES OF FSTWO 



•STORE FLOATING * 

• POINT REGS • 
•0, 2, 4, 6 INTO» 

• SAVE AREA • 



»»*»»B2*»****«**« 

• MOVE A X«70' • 
•INTO THE BRANCH* 
•INSTRUCTION TO » 

• THE PRINT • 

• SUPPRESS RTN • 



NO .* 2ND 
...*. WORD BEING 
*. MOVED . 



«*#«02******** 
MOVE X'80' TO 
BRANCH INSTR 
TO THE PRINT 
SUPPRESS RTN 



EDIT AND 

PRINT A LINE 

OF CORE 



TSTLST X 

*#»*»B4********* 
» LOAD ADDRESS 
« OF NEXT LINE 

* TO BE PRINTED 

* INTO TESTR 

* REGISTER 



»»»»C3********* 
MOVE CARRIAGE 
CONTROL INTO 
FIRST BYTE OF 
TAPE OUTPUT 
AREA 



LAST 

TIME 

THROUGH 



* SVC 11 RETURN 
*TC TASK SELECT 

• IN SUPVR 



*C5**«*« 
RETURN 



PRNTLN1 

•TSTCOR NC 

* *EST*CORE FOR 

* ENOUGH SPACE 

* TC OUTPUT 



BTSTCR 

#»**»E3« 
•TSTCOR 



TEST CORE FOR 

ENOUGH SPACE 

TO OUTPUT 



* MOVE MASK * 

* FOR GETTING * 
•LAST LINE INTC * 
•REG 7 AS ENDLIN» 

* AND ENDLIN1 * 



E4 •. 

• IS • 
TSTLST1 
SWITCH 



CLRLIN X 

• CLEAR LINE 

• OUTPUT AREA 

• ANC MCVE THE 

• fcCRD— SAME — 

• TO PRINT AREA 



NO .» MULTI- * 

. ..*. PROGRAMMING 

*. SUPPORT .* 



•MOVE REGISTERS 

• FROM 

• SAVE AREA 




»*»**H1»********* 

* LOAD ADDRESS * 

* OF SAVE AREA « 
•INTO REG 3 FOR • 
•FOREGROUND PROG* 

* REGISTER DUMP * 



•**»F2********* 

STORE THE 

BEGINNING OF 

PROGRAM ADDR 

INTO THE LINE 

OUTPUT AREA 



UNPACK THE 

FIRST WORD 

OF THE 

PROGRAM 



»»*H2******** 

MOVE BLANK 

CHARACTER 

INTO LINE 

OUTPUT AREA 



F3 * 

* IS 
NEXT 
LINE 
SAME 

• . «H4 



»»G3******* 
•SET TSTPRT * 

•SWITCH TO 
'SKIP AROUND 

PRINTING A 
* LINE * 



**H3*«**»*« 

•SET TSTLST1« 

SWITCH TO 

SKIP AROUNO 

LAST LINE 

* PRINTING • 



FA ». 

• IS 
TSTPRT 
SWITCH 

ON 



*H4 
BEFORE THE 
CONDITION CODE 
IS CHECKED, THE 
ADDRESS OF THE 
NEXT LINE IS 
LOADED INTO REG 



•«G5«**«««* 

• TURN OFF • 

•SKIP SWITCHES* 

IN TSTPRT 
• AND TSTLST1 • 



««»«H5«***««*« 

LCAD ADDRESS 

CF BEGINNING 

CF PRCGRAP 

INTO 

REG 7 



»»«*J1»»«»*#«»# 

LOAD ADDRESS 

UF END OF 

SAVE AREA 

REGISTER DUMP 

INTO REG 5 



* TRANSLATE THE 

* DATA IN LINE 

* AREA TO 
•PRINTABLE DATA 



»*«»K1******** 

S€T HEADING 

FOR FLOATING 

POINT 

REGISTERS 

INTO LINE 



ENDLIN 

•****K2********* 

* MOVE ADDRESS 

* OF BEGINNING 

* OF PROGRAM 
•INTO REG 7 FOR 

* PRINTING 
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Chart ND. $$BPDUM1 - Standard System Dump, Line Test Subroutines 
Refer to Chart 15. 



»»*» A 1» *»*•*»*• 
• TSTCOR » 



••••A3«««**»**« 
• PAGHEC « 



TSTCOR 

•##»»B1«* *»»»••»* 

• LOAD ADDRESS * 

• OF BEGINNING • 
•OF PROGRAM INTO* 

• BEGINNING OF • 

• FIRST LINE • 



•»»B2 *••**»»* 

EXECUTE 

CLRLIN TO 

CLEAR PRINT 

AREA 



PAGHED X 

»»»»»B3««««**»« 
« MOVE CONTROL 

• BYTE TO SKIP 

• AND PRINT 

• INTO TAPE 

• OUTPUT AREA 



»»«*#C1»* *»«»»*»« 


**C2******« 


*«**«C3«««« •••••• 


• LOAD ADDRESS » 
» OF ENDING OF * 


•SET SWITCH • 


• EXECUTE • 


• FOR UNCOND • 


• CLRLIN TO • 


* PROGRAM LINE • 


• BRANCHING TO • 


• CLEAR PRINT • 


• INTO END OF * 


• EXIT IN NOP • 


• AREA • 


•FIRST LINE REG • 


• BTSTCR-3 * 





••••oi«* •*•••*• 

LOAD AND TEST 

LINE COUNT 



SPACE LEFT 



ANY 
SPACE 
LEFT 



PRINT 
PAGE 
HEADER 



#»*«G1****»*»* 
MOVE CONTROL 
BYTE TO SKIP 



•••D3 *••••*•* 

INCREMENT 

PAGE COUNT 

IN REGISTER 



*»#«E3«««»«»«* 

CONVERT TO 

DECIMAL AND 

UNPACK THE 

3 DIGIT PAGE 

NUMBER 



.• ANY ». 

.* LEADING *. 

.ZEROS IN PAGE. 

». NUMBER .♦ 



»»*«G3 •••*•••• 

SUPPRESS 

THE LEAOING 

ZEROS IN THE 

PAGE 

NUMBER 



MOVE 
JOB NAME 

TO 
HEADLINE 




»**«E 4* •«••••• 

MOVE 

JOB DATE AND 

PAGE NUMBER 

TO HEADLINE 



»»»»F4» »**»•**• 
LOAD ADORESS 

OF OUTPLT 

COMMAND BLOCK 

INTO 

REG 1 



»»»G4«»**»»*» 
INSERT LINE 
COLNT FROM 



»E5«««« 

UNPK 



***«F5««««««*«« 

MOVE 4 BYTE 

WCRD FROM 

WORK AREA IN 

REG 3 TO AREA 

FOR EXPANDING 



UNPK1 

•««««G5«««««««««« 

• DECREMENT • 
» REG CTR • 
« AND UNPACK • 

• GNE 4 BYTE WORC» 

• INTO LINE « 



• LOAD END OF 
» PROGRAM ADDR 
•INTO REG 5 FOR 

* ENDING 
» LIMIT 



• K2 
THIS BRANCH WILL 
NEVER BE TAKEN 
BECAUSE THE LINE 
COUNT WAS JUST 
PICKED UP IN THE 
PREVICUS INSTRUCTION. 



«.««*»H3 *••****••* 




F4 *. 






•*«*«H5««*«««« 








.♦ IS •. 








MOVE 1 EYTE 


* CLEAR 




YES . 


* COUNT 




. 


siO • 


DELIMITING 


* SAVE 






ZERO 








CHARACTER 


* AREA 






*. »K2 








TO WORK 
















AREA 






X 








X * 


>«««««••«••«« 






























»NE • 








• K2* 








« D5» 




































X 














X 


AME .«. 




FGHEC 








ALTER .•. 


J3 •. 






**»J4»*«#**i 








J5 •. 


.• IS • 






MOVE 








.• IS •. 


.• FGNAME 


*. YES 




FOREGROUND 




* 


NO 


• ALTER . 


•• SWITCH ON 




X* 


NAME INTO 








SWITCH 0l4 




• 


• 


HEAD LINE 




* 


. 




». .» 




* 






* 


X 


"•YES 


• NO 






. 


















• NE • 
















• J2« 




X 






X 








X 


*•** 
















• » 






* * 






ALTER1 


• NE • 


• 2 • 






* 3 ♦ 








• C2« 


















«••• 






• •*• 








SPECIAL 
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Chart NE. $$BPDUM1 - Standard System Dump, Prepare and Edit a Line Subroutine 
Refer to Chart 15. 



•*A1********* 
REGPNT * 



REGPNT X 

* MOVE A X'EF' 
♦INTO THE FIRST 

* WORD AREA OF 
» LINE OUTPUT 

* AREA (LINE+8) 



REGPNT6 

»*»*»C1********* 

* REPEAT 

* THE X'EF' 

* DATA WORD 
*T0 BYTE 119 OF 

* LINE +8 AREA 



ALTER 

♦ ND * 

* J5^ 



SPECIAL X 

»«»**C £♦♦♦♦*♦* 

♦ COMPARE 

♦ REGISTER 

* WITH A 

* CONSTANT 1 



• ••«B4*****«**' 

LOAC ADDRESS 

OF SYSLST 

INTO EOV 

ROUTINE 

REGISTER 



♦ SET PDUMP ♦ 
♦END OF VOLUME^ 

SWITCH IN 
♦ PDUMP3 ♦ 

♦DESIGNATOR ♦ 



TRANSLATE 

DATA IKTC 

PRINTABLE 

CHARACTERS 



PRNTL 

♦ LCAD ADORESS 

♦ CF SECOND 

♦ OUTPUT CCB 
♦INTO REG 1 FOR 

♦ SVC CALL 



LOAD ADDRESS 

OF FIRST WORD 

AREA TO 

REGISTER 6 



REGPNT1 

*****El** ******•• 

♦ LOAD A 4 ♦ 

♦ INTO REGISTER ♦ 
♦0 TO INITIALIZE^ 

♦ COUNTER ♦ 



* F5* 
UNPK 



♦ DOES * 
REG EQUAL 

♦ . 1 .♦ 



»*»#F2^^*^^^*^ 

MOVE A 

ONE BYTE 

DELIMITING 

CHARACTER TO 

THE WORK AREA 



BLANK 

OUT 
WORK 
AREA 



♦ CLEAR SKIP 
♦ SWITCH BY 
ANDING A X'OF 
♦INTO ALTER 



♦ LOAD ADDRESS 

♦ OF END-OF- 
♦VOLUME ROUTINE 

♦ $$BCMT07 



♦SVC 2 $$BCMTC7 

♦ LIOCS PLM 

* GY24-5087 



SVC 
EXECUTE 
CHANNEL 
PROGRAM 



• ♦^♦♦♦♦**« 

WAIT 

AND COUNT 

LINES 

PRINTED 

SVC 7 



MOVE X'EF* 

FROM CONSTANT 

AREA TO A 

9 BYTE AREA 

IN LINE 



INCREMENT 

LOCATION 

COUNTER 



SYSLST 
. PRINTER 


*. YES 


"♦NO 




X 

H5* *♦. 

END 
CF FILE Ort 
. TAPE 


*:. : 


'♦NC 




.X... 





.♦ IS ♦. NO 
COUNTER .♦... 
♦. ZERO .♦ 



ALTER2 

***»«J 3 •♦♦♦♦♦♦♦ 

♦ LOAD ADDRESS 

♦ OF THE NEXT 
X^ WORC AREA 

♦ INTO REG 6 



K3 ♦. 
.* IS 

THE NEXT ♦. 


NO 


K4 ♦. 
.♦ IS ♦ 

.♦NO-PRINTER 


. DUMP .♦ 
♦.LIMIT.* 

'♦YES 

'. UNPK 
X 

♦ ND ♦ 

♦ F5^ 




*. ON 

'♦NO 

X 

* 2 ♦ 



••^♦♦♦♦♦♦^ 

RETURN TO 
CALLER 
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Chart NF, $$BSYSWR - Set up a Write on SYSRES Operation; Move Label Cylinder Address to 
COMREG 



.* RO • 

TEST 

♦.ZERO FOR .* 

».SYSWR.» 



LOAD DISK 

ADDR INTO 

RO AND STORE 

IN SEEK CCW 



• »**01****»*' 

LOAD DISK 

ADDR + 2 

INTO RO 

AND STORE _. 

SEARCH CCW 



IN 



• LOAD ADDR 

• OF SEARCH CCW 

• INTO RO 

• AND STORE IN 

• TIC CCW 



**»**F1< 

• SET UP READ 

♦ CCW WITH ADDR 
•OF BUFFER AREA 
•AND STORE SEEK 
•CCW ADDR IN CCB 



SET UP 
TO RETRY 
10 TIMES 



LOAD CCB 
ADDRESS IN 
REGISTER 1 



HZ •. 

TENTH 
RETRY 


* 


*• 


YESl 
»..X. 


'•NO 








X 
C2* **. 

RETRY 

ON 
EOF 


• 


*; 


» * 


'•NO 








- X.. 









LOAD ADDRESS 
OF COMREG 
INTO REG 4 



#**C4»»»»«»« 

SET REG 3 

TO LOGICAL 

TRANSIENT 

KEY VALUE 



*»»D2»*«*»»« 
LOAD ADDR 
OF COMREG 

INTO R2 

AND ISSUE 

SVC 33 »D3 



.• B 
». * 


JF • 

E3 

»N0 


YES 


##»*»F2*< 
•SET X'l 

• AS K 

• HIG> 

• PART 
•PROCESS 


; '. 

I***BG) • '. 
EY OF • 
HEST » 
TION « 
ED *F3» 




X 





BLOCKS BEGINNING AT 
LABMV3 REPRESENT 
AN EXPANSION OF THE 
SYSIR MACRO. 



•E3 
SUPERVISOR 

GENERATION 
OPTION. 



• F3 
INITIALLY SET 
TO X'30« (Fl). 



* SET X«80« • 
•IN FLAG MASK 

POSITION 
» OF PIB 



G2 •. 
.* HAS ». 

♦ HIGHEST 
PARTITION 

••BEEN PRO-. 
».CESSD.« 



• YES 



«#**H2»*«*«*«* 

SVC 11 

EXIT TO 

PROBLEM PROG 



GET AND SAVE 

NEXT KEY FOR 

EXECUTION 



SVC • 
ISSUE I/O 




♦«•«»*»*••• 




Ix 




X 

Kl" *•. 

I/O "•. 
COMPLETE 


•*»»K2»*«* 
* SVC 7 
....X* WAIT 



»#»**J3«***«##«» 

• GET PARTITION 

• COMREG AND 
•MOVE LABEL CYL 

• DISK ADDRESS 

• TO COMREG 
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Chart NG. $$BSDRUP - EREP Processing, Suppress File-Ready- for-Recording Switch 



»*A2****** 
$$BSORUP 



*D1 
REG 2 HAS ADDRESS 
OF UPDATED HEADER 
INFORMATION AND 
REG 3 HAS ID CODE 

WHEN FETCHED BY 
EREPCLR. 

REG 3 HAS ID CODE 

1 WHEN CALLED BY 
EREP INITIALIZER 
ROUTINE, ID CODE 
WHEN CALLED BY 
EREP EXIT ROUTINE. 



♦•»*B2 ******** 

SET ADDRESS 

OF PROGRAM 

SAVE AREA IN 

REGISTER 2 



»»**C2******** 
SET ADDRESS 
OF SDR COMM 

REGION IN 
REGISTER 3 



**«*D2 ********* 

GET ADDRESSES 

PASSED IN 

REGISTERS 

2 AND 3 

*D1 



FILE 
READY FOR 
.RECORDING. 



•*C4******* 

SET 

RECORDING 

BIT X'01' 

SDR TABLE 

BYTE 1 



«*C5******* 

♦CLEAR PART * 
•ID FIELD WITH* 

X'OO* 
* SDRTABLE * 

• BYTE 1 * 



BYPASS 

**D4******* 

•SET CALLING* 

•PARTITION ID * 

* IN SDR TABLE * 

* BYTE 1 * 



• CALLED 
BY EREP 
.INITILZR 



»*E4******* 

* CLEAR * 

* READY FOR * 

RECORDING * 
•BYTE 0, BIT 7« 
•IN SDR TBL * 



CALLED 

BY EREP 

EXIT 



**G2******* 

* SET OBR * 

* KEY TO 0. * 

SDR TABLE 
•BYTE 0, BIT 0* 



•*»*H2 ******** 

MOVE UPDATED 

HEADER 

INFORMATION 

TO SDR TABLE 

BYTES 2-31 



SVC 11 
RETURN TO 
CALLER 



EREPOUT 

**G3******* 

•CLEAR FILE 

* READY FOR 

* RECORD ING- 

•BYTE 0, BIT 

•IN SCR TBL 



WAS 
FILE 
READY 



**J3******* 
•RESET FILE * 

* READY FOR * 
» RECORDING * 

• BYTE 0, BIT 7* 
•IN SCR TBL • 



»«JA******* 

•CLEAR PART * 

•ID FIELD WITH* 

* X'OO' 

* SDRTABLE * 

* BYTE 1 * 
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Chart NH. $$BCCHHR - Core Image Directory Scan (Part 1 of 3) 



****Al********* 

* $$BCCHHR * 

* *A3 * 



♦ A3 
THIS TRANSIENT PUTS CYLINDER-HEAD-RECORD ADDRESSES 
OF SJR-TRANSIENTS INTO THE RESIDENT RMS TABLE 
(RASTAB). THESE 'CHR' ADDRESSES ARE PLACED IN THE 
•LOADLIST' PORTION OF RASTAB. FOR MORE INFORMATION, 
REFER TO THE SUPERVISOR PLM, GY24-5151. 



******** 



RASSY 

*****B1 ********** 

* RELOCATE CCWS * 

* AND SET UP * 

* REGISTER * 

* USAGE * 

* * 
***************** 



CI *. 

.* *. 

.* * 

.INITIAL CALL 



CHECK IF * 

SYSTEM/360 OR * 

SYSTEM/370 * 

- ************ 



LUBCHECK 

*****£ i********** 
♦GET CHAN ADDR ♦ 

♦ OF DEVICE AND * 

♦ SAVE IT AT ♦ 

♦ RASRES IN ♦ 

♦ SUPVR RASTAB ♦ 
***************** 



*****G1 ********** 

♦ GET INDEX TO ♦ 

♦ SYSLOG PUB ♦ 

♦ AND MULTIPLY ♦ 

♦ BY LENGTH ♦ 

♦ OF PUB ♦ 
***************** 



*****HX********** 
♦SAVE CHAN ADDR ♦ 

♦ OF DEVICE AT ♦ 

♦ RASLOG IN ♦ 

♦ RASTAB IN ♦ 

♦ SUPERVISOR * 
***************** 



*****jl********** 

♦ MAP TO PUB ♦ 

♦ ENTRY FOR ♦ 

♦ SYSREC, ♦ 

♦ RECORDER FILE ♦ 

♦ * 
***************** 



*****G2+^*+**+*^* 

♦ SET SEEK ADDR ♦ 
♦TO CYLO, TRKIO ♦ 
♦FOR CORE IMAGE ♦ 

♦ DIRECTORY ♦ 

♦ * 
***************** 



*****H2********** 
♦SET BLOCKS/TRK ♦ 

♦ TO 15 FOR ♦ 
.♦ CORE IMAGE ♦ 

♦ DIRECTORY ♦ 

♦ * 
***************** 



*****D3********** 

♦ PUT NUMBER OF ♦ 

♦ RECORDS/TRACK ♦ 

♦ FOR 2314 IN ♦ 

♦ EOR IN RASTAB ♦ 

♦ * 
***************** 



*****E 3** ******** 

♦ PUT NUMBER OF ♦ 
♦TRACKS/CYLINDERS 

♦ FOR 2314 IN ♦ 

♦ EOT IN RASTAB ♦ 

♦ * 
***************** 



*****P3********** 

* * 
♦SET SEARCH ADDR+ 

♦ TO CYLINDER ♦ 

♦ TRACK 10 ♦ 

* * 
***************** 



*****G3** ******** 
♦POST NUMBER OF ♦ 

♦ BLOCKS/TRACK ♦ 

♦ FOR 2314 IN ♦. 

♦ LSTBLOCK IN ♦ 

♦ RASTAB ♦ 
***************** 



DEV2311 

*****Q4********** 

♦ PUT NUMBER OF ♦ 

♦ RECORDS/TRACK ♦ 

♦ FOR 2311 IN ♦ 

♦ EOR IN RASTAB ♦ 

♦ * 
***************** 



*****E4********** 

♦ PUT NUMBER OF ♦ 
♦TRACKS/CYLINDERS 

♦ FOR 2311 IN ♦ 

♦ EOT IN RASTAB ♦ 

♦ * 
***************** 



*****C5********** 

* * 
♦GET ADDRESS OF ♦ 

♦ 360 BYTE ♦ 

♦ WORK AREA ♦ 

* * 
***************** 



*****Q5********** 

♦ * 

♦ UPDATE ♦ 

♦ CURRENT ♦ 

♦ DISK ADDRESS ♦ 

♦ * 
***************** 

**** 

♦ * 
♦NJ ♦ 

♦ G2^ 
**** 

TESTCODE 

*****£ 5********** 



**************** 



**F4******* 

♦ INITIALIZE ♦ 
♦COUNTER (REG2) 

♦ TO ZERO ♦ 
* * 

*********** 



GET CCB 

ADDRESS IN 

REG 1 

* 

********** 



****H4*********** 

♦ SVC ♦ 
READ 360 
♦ BYTE BLOCK ♦ 

***************** 



.♦ IS A ♦. 

COMPLETE 

BLOCK 

.PROCESSED. 



***** 
♦NJ ♦ 
♦ B2+ 
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Chart NJ. $$BCCHHR - Core Image Directory Scan (Part 2 of 3) 



***** 

*NH * 
* F5* 



* * * *NK-C4,F4 



.* END OF 
*. CORE IMAGE 
*. DIRECTORY. 



C2 *. 


*****£ 3********** 


EXIT1 X 


* IS *• 


* POST RMS * 


****C4********* 


ENTRY *. 


* ACTIVE IN * 


* EXIT VIA 


A $$R .* 


* RASFLAGS IN * 


* SVC 11 


TRANSIENT.* 


* RASTAB * 


* 



*****D2********** 
♦CALCULATE ENTRY* 

* INTO LOADLIST * 

* IN RASTAB FOR * 

* THIS ENTRY * 

* * 

***************** 



***************** 



****D3** ********* 
ISSUE SVC 33 
* TO FORCE * 
INTERRUPT 
* * 

***************** 



*************** 



*****P2********** 

* MOVE THE * 

* «CHR« OF THIS * 

* ENTRY INTO * 

* LOADLIST * 

* * 
***************** 



*****p 3** ******** 
♦POST RMSBIT IN * 
♦COMMUNICATIONS * 

* REGION AT * 

* CONFIG * 

* * 
***************** 



*************** 



***** 
*NH * 
* E5* 



*****H3** ******** 

* POST RMSBIT * 

* IN F2 AND Fl * 

* COMREGS * 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 
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Chart NK. $$BCCHHR - Core Image Directory Scan (Part 3 of 3) 



****A1********* 

* * 

* RMSCHECK * 

* * 
*************** 



*****B1********** 

* INITIALIZE * 
♦PSWS AND OBTAIN* 

* SUPERVISOR * 

* STATE * 



*****C1********** 



***************** 



*****D1********** 

* * 

* SAVE LINK * 

* ADDRESS IN * 

* REG 9 * 

* * 
***************** 



*****E1*#******** 

* SAVE ADDR FOR * 

* PROGRAM CHECK * 
*ON STORED CPUID* 

* IN PROGRAM * 

* NEW PSW * 
***************** 



♦STORE CPUID IN * 

* RMS LINKAGE * 

* AREA * 

* * 
***************** 



.*. 

Gl *. 

.* DID ♦ . 

.♦INSTRUCTION*. 

.CAUSE PROGRAM. 

*. CHECK .* 



RASPCRET X 

*****Hi ********** 

* MOVE MACHINE * 

* CHECK SUPPORT * 
*CODE FOR S/360 * 

* INTO RESIDENT * 

* SUPERVISOR * 
***************** 



*****jl********** 

* MOVE CHANNEL * 

* CHECK SUPPORT * 
♦CODE FOR S/360 * 

♦ INTO RESIDENT * 

♦ SUPERVISOR ♦ 
***************** 



* 2 * 

* * 
**** 



*****C2******^*** 

* POST * 

* RECORDING ♦ 

* MODE IN ♦ 

* MCMODE IN ♦ 

* RASTAB ♦ 
***************** 



*****02********** 



***************** 



*****B4********** 



***************** 



***************** 



*****p 2 ********** 

* * 
♦SET UP ADDRESS ♦ 

♦ FOR EXTENDED ♦ 

♦ LOGOUT ♦ 

* * 
***************** 



*****G2+++^^+^^ 

♦ * 

♦ SET RECORDER ♦ 

♦ FILE NOT ♦ 

♦ READY ♦ 

♦ * 
***************** 



♦ ♦♦♦(^♦♦♦♦♦♦♦♦* 

* * 

* RETURN VIA * 

* LINK REG * 
*************** 



C4 *. 
♦ IS ♦. 

SYSUSE 
A CONSOLE 

DEVICE . 



****D4********** 

RELOCATE CCW ♦ 

ADDRESS, MOVE ♦ 

SYSUSE LUB ♦ 

NUMBER INTO ♦ 

CCB ♦ 

**************** 



****E4.*********** 
SVC ISSUE 
♦01251 MESSAGE, ♦ 
NO RMS SUPPORT 
♦ FOR THIS CPU ♦ 

***************** 



.♦ REQUEST 
POSTED 
♦.COMPLETE 



***** 
*NJ * 
* C4+ 



****G4*********** 



***************** 
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Chart PA. $$BATTNQ - MODE Command Parameter Processor (Part 1 of 2) 
Refer to Chart 07. 



**** 

* * 

* i * 

* * 
**** 



****A1********* 

* * 

* SSBATTNQ * 

* * 
*************** 



*****gl ********** 



***************** 



.* *. NO 

*. SYSTEM/370 .*... 
*. CPU .* 



.* IS *. YES 
*. PARAMETER .*.... 

*. 'HIR* .* 



*****A4********** 

* * 

* SET HIR * 
.X* INDICATOR ON *. 

* IN MODEBITS * 

* * 
***************** 



*****B4********** 



IS *. YES 
PARAMETER .*.... 
. «ECC» .* 



Dl *. 








.* IS * 








PARAMETER 


* 


YESX 




FIELD G. T 




* . • . • 




.22 BYTES . 


* 




X 


*. .* 






***** 


*. .* 






*PB * 


*NO 






* C4* 



***** EX ********** 

* CONVERT * 

* PARAMETER * 

* ENTRY TO * 

* CAPITAL * 

* LETTERS * 
***************** 



*****F i ********** 

* INITIALIZE * 

* PARAMETER * 

* INDICATIONS * 

* TO ZERO * 

* * 
***************** 



* G2* 
**** 

PARCKRTN 

*****G1 ********** 

* * 

* SCAN * 

* PARAMETER * 

* FIELD * 

* * 
***************** 



HI *. 
.* DID *. 
.* SCAN STOP *. YES 



***** 
*PB * 
* K2* 



***************** 



*****C4********** 



***************** 



*****D4********** 



***************** 



*****E4********** 



***************** 



*****P4********** 

* SET * 

* MAIN STORAGE * 
.X* INDICATOR ON *. 



. **** 
CALLPHSE X 

*****G2********** 

* * 

* PREPARE REGS. * 

* AND 1 FOR * 
♦LOAD OPERATION * 

* * 
***************** 



.*. 
H2 *. 
* IS *. 
$$BATTNR *. NO 
TO BE .*... 
LOADED .* 



.* IS *. YES 
*. PARAMETER .*.... 
*. 'C .* 



***** 
*PB * 
* B4* 



***************** 



*****G4********** 

* SET CONTROL * 

* STORAGE * 
.X* INDICATOR ON *. 



***************** 



***** 
*PB * 
* G2* 



***** 

*PB * 

* Bl* 

* * 



YES .* IS 
..»*. PARAMETER 
♦.•STATUS 1 . 
*. .* 
X *. .* 
**** *NO 

* * 

* 2 * 

* * 
**** 

CKFORHIR 

*****K1********** 
♦SET CONTROL TO * 

* PERMIT STATUS * 

* AS VALID ONLY * 

* ON FIRST PASS * 

* ON PARAMETER ♦ 
***************** 



♦. 



*****J2********** 

* * 
♦SET PHASE NAME ♦ 

* $$BATTNR FOR * 

* LOADING * 

* * 
***************** 



*****j3********** 

* * 
♦SET PHASE NAME ♦ 

* $$BATTNS FOR * 

* LOADING * 

* * 
***************** 



****K2********* 

* * 

* SVC 4 * 

* LOAD PHASE * 
*************** 
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Chart PB. $$BATTNQ - MODE Command Parameter Processor 
Refer to Chart 07. 



(Part 2 of 2) 



***** 

*PA * 
* G3* 



IS *. 
PARAMETER .* 
•E' .* 



CI *. 

.* ♦ . 

IS 

PARAMETER 



*YES **** 

* * 

* 2 * 



TURNETON X CKFORT .*. 

*****01********** 02 ♦ . 

♦TURN ON 'E' OR * .♦ ♦ . 

* 'T' INDICATOR * .♦ IS 

* AND SAVE ITS * ♦. PARAMETER 

* THRESHOLD * *. 'T' 

* INDICATION * *. .♦ 
*********** *. .* 

♦YES 



* 2 



**** 
ERRORRTN X 

*****84********** 
* - VALIDATE * 

* NUMBER OF * 

* PASSES ON * 

* 'STATUS' * 
♦PARAMETER CHECKS 
***************** 

**** 



*****C4********** 

♦ * 

♦ PREPARE ♦ 

♦ INVALID ♦ 

♦ STATEMENT ♦ 

♦ MESSAGE ♦ 
***************** 



***** 
♦AC ♦ 
♦ B5+ 



*****£ x********** 

♦ * 

♦ GET ♦ 

♦ THRESHOLD ♦ 

♦ VALUE ♦ 

♦ * 
***************** 



.*. 

Fl ♦. 

.♦ IS ♦. 

.♦ VALUE ♦ 

♦.GREATER THAN 

♦ .4 DIGITS .♦ 

*. .* 



*****G1********** 
♦CHECK THRESHOLD^ 

♦ FORVALID VALUED 

♦ AND CONVERT * 

♦ TO BINARY ♦ 

♦ * 
***************** 



**** 

* * 

* 2 ♦ 

* * 
**** 



TTTTMULT 

♦ ♦♦♦♦^♦♦♦♦♦♦♦♦♦* 

♦ CONVERT TTTT ♦ 

♦ VALUE FROM ♦ 

♦ HOURS TO ♦ 

♦ TIMER UNITS ♦ 

♦ * 
***************** 



*****P2********** 

♦ * 

♦ SAVE TTTT ♦ 

♦ VALUE FOR ♦ 

♦ $$8ATTNS ♦ 

♦ * 
***************** 



*****E 3********** 

♦ * 

♦ SAVE EEEE ♦ 

♦ VALUE FOR ♦ 

♦ $$BATTMS ♦ 

♦ * 
***************** 





HI *. 








.♦ IS ♦. 








.♦ VALUE 


♦ . 


NO 


* 


.GREATER THAN 


. 


♦ . .. . 




♦. 16 


* 






♦ . .♦ 








♦ . .♦ 




X 




♦ YES 




**** 








* 




: 




* 4 * 

* * 








**** 




X 








.♦. 








Jl ♦. 








.♦ ♦. 








.♦ IS 


♦ . 


YES 


* 


. PARAMETER 




*■•«-. 



.♦ DID ♦. YES 
.SCAN STOP ON ...... 

♦. COMMA .♦ 



.♦. 



♦ G3 
PA-A4,B4 t C4 
PA-D4,E4,F4 
PA-G4 



• ♦ SYSTEM/370 *• NO 
CPU •*••■ 



H2 

.♦ DID ♦. 
♦ SCAN STOP ♦ 

ON AN EQUAL 
♦. SIGN .♦ 



*****J2********** 

♦ * 

♦ SCAN FOR ♦ 

♦ FIELD END ♦ 

♦ (X'FF'J ♦ 

♦ * 
***************** 



WAS ♦. 

FIELD END . 

. FOUND .♦ 



**** 

* * 

* 2 ♦ 



**** 

* * 

* 1 ♦ 

* ♦ 



* 3 ♦ 

* * 
**** 



***** 

♦PA ♦ 

* G2^ 

* * 

♦ CALLPHSE 



**** 

* * 

* 2 ♦ 

* * 
**** 
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Chart PC. $$BATTNR - MODE Command Status Report Processor (Part 1 of 2) 
Refer to Chart 07. 



****A1********* 

* * 

* SSBATTNR * 

* * 
*************** 



*****Bi********** 



***************** 



*****£}********** 

* * 

* CLEAR * 

* STATUS REPORT * 

* MESSAGE AREA * 

* * 
***************** 



*****D1 ********** 

* * 

* MOVE 'HIRtR' * 

* TO MESSAGE * 

* AREA * 

* * 
***************** 



****A4********* 

* * 

* CNVTODEC * 

* * 
*************** 



***************** 



.* IS *. 
YES .* HIR IN 
...*. RECORDING 
*. MODE 



*#***Gl ********** 

* * 

* CHANGE «R' * 

* TO «Q' IN * 

* MESSAGE AREA * 

* * 
***************** 



.X. 



IRMSG X 
*****Hl ********** 
*INSRTAEB PD* 
*_*_*_*_*_*_*_*_* 

* FORMAT ERROR * 

* COUNT AND * 

* TIME DATA * 
***************** 



*****J1 ********** 

* * 

* MORE «ECC,R' * 

* TO MESSAGE * 

* AREA * 

* * 
***************** 



*****B2********** 
♦SET UP POINTER * 

* TO ECCMAIN * 
♦FIELD IN RASTAB* 

* * 

* * 
***************** 



C2 *. 

.♦ IS ♦. 

CPU 

MODEL 155 



FMECMMSG 

*****p 2 ********** 

♦INSERTAEB PD* 
*„*_*_*_*_*_*_*_* 

* FORMAT ERROR * 

* COUNT AND * 

* TIME DATA * 
***************** 



***** H 2********** 

* MOVE BUFFER * 

* PAGES DELETED * 

* HEADER TO * 

* MESSAGE AREA * 

* * 
***************** 



*****j2********* 

* GET NUMBER OF 

* PAGES DELETED 

* FROM RASTAB 



***************** 



****** 2 ********** 
♦CNVTODEC PC* 
*_*_*_*_*_*_*,.*_* 

* CONVERT PAGE * 

* COUNT TO * 

* DECIMAL * 
***************** 



*****B 3** ******** 

♦OUTSTAT PD^ 
*_*-.*_*_*_*_*_*_* 

* PRINT BUFFER * 

* PAGES DELETED * 

* MESSAGE ♦ 
***************** 



X 
***** 

♦ AB ♦ 

* Bl* 



X 


RECMODE .*. 






*****(= 1 ********** 


E2 *. 


*****E3**= 


**** 


♦SET UP POINTER * 


.* IS *. 


* 




* TO HIR FIELD * 


.* ECC(MAIN) ♦. NO 


* CHANGE 


'R« 


* IN RASTAB * 


♦.IN RECORDING .♦ 


...X* TO 'Q 


IN 


* (RMSTABLE) * 


♦. MODE .* 


* MESSAGE 


AREA 



***************** 



*****!= 3********** 

* * 

* MOVE 'ECC C * 
X* TO MESSAGE * 

* AREA ♦ 

* * 
***************** 



.♦ECC CONTROL^. 

♦.IN RECORDING .♦ 

*. MODE .* 



****A5***^****^ 

* * 

* CALCTIME ♦ 

* * 
*************** 



♦ CONVERT TIME ♦ 

♦ FROM TIMER ♦ 
♦UNITS TO HOURS ♦ 

♦ * 
***************** 



***************** 



*****05********** 



***************** 



*****E5********** 



************ 



****F5********* 

* * 

* RETURN ♦ 

* * 
*************** 



*****H 3 ********** 



.♦ECC CONTROL*. 

*. IN QUIET .* 

*. MODE .* 



***** j 4** ******** 



***************** 



* 3 * 

* * 
**** 



*************** 



*****j5********** 
♦OUTSTAT PD+ 
*_*_*_*_*_*_*_*_* 

♦ PRINT ECCC ♦ 

♦ STATUS REPORT * 



***** 
*AB * 
* Bl* 



**** 

* * 

* 2 * 

* * 
**** 
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Chart PD. $$BATTNR - MODE Command Status Report Processor (Part 2 of 
Refer to Chart 07. 



2) 



****Ai********* 

* * 

* INSRTAEB * 

* * 
*************** 



LOAD ERROR 

COUNT INTO 

WORK REGISTER 



*****d ********** 
♦CNVTODEC PC* 
*_*_*_*_*,.*_*_*-* 

* CONVERT ERROR * 

* COUNT TO * 

* DECIMAL * 
***************** 



*****Ql********** 

* * 

* PUT ERROR * 

* COUNT IN * 

* MESSAGE * 

* * 
***************** 



*****{=! ********** 

* INSERT SLASH * 

* CHARACTER * 

* AFTER ERROR * 

* COUNT * 

* * 
***************** 



*****F1 ********** 

* LOAD ERROR * 

* COUNT LIMIT * 

* INTO WORK * 

* REGISTER * 

* * 
***************** 



*****Gl ********** 
*CNVT0DEC PC* 
*-*_*_*_*_*_*_*-* 

* CONVERT ERROR * 

* COUNT LIMIT * 

* TO DECIMAL * 
***************** 



*****Hi********** 

* * 

* PUT ERROR * 

* COUNT LIMIT * 

* IN MESSAGE * 

* * 
***************** 



*****B2********** 

* * 

* GET TOD OF * 

* FIRST ERROR * 

* FROM RASTAB * 

* *E3 * 
***************** 



C2 *. 
.* IS *. 

TIME OF 
DAY VALUE 
. ZERO 



*****02********** 

* * 

* GET TIME OF * 

* DAY FROM * 

* SYSTEM CLOCK * 

* * 
***************** 



*B3 

T0D=TIME OF DAY 



*****F2********** 
♦ELAPSED TIME = * 
*T0D FROM CLOCK * 

* MINUS TOD OF * 

* FIRST ERROR * 

* *B3 * 
***************** 



G2 *. 

.* IS *. 

•ELAPSED TIME*. 

*.G.T. OR EQUAL. 

*. 1 HOUR .* 



**YES 



*****jl**** 

* INSERT COMMA * 

* CHARACTER * 

* AFTER COUNT * 

* LIMIT * 

* * 
***************** 



*****H2********** 
*CALCTIME PC* 
*_*_*_*_*_*_*_*_* 

* CONVERT * 

* ELAPSE TIME * 

* TO HOURS * 
***************** 



*****J2********** 

* * 

* PUT ELAPSED * 

* TIME IN *. 

* MESSAGE * 

* * 
***************** 



****A4********* 

* * 

* OUTSTAT * 

* * 
*************** 

**** 

* * 

* 2 * 

* * 
**** 

OUTSTAT X 

*****B4********** 

* * 

* MOVE MESSAGE * 

* LENGTH TO * 

* OUTPUT CCW * 

* * 
***************** 



*****C4********** 

* * 

* LOAD ADDRESS * 

* OF OUTPUT CCB * 
♦INTO REGISTER 1* 

***************** 



************ 



*****E4********** 

* * 

* CLEAR STATUS * 

* REPORT * 

* MESSAGE AREA * 

* * 
***************** 



****F^********* 

* RETURN * 

* * 
*************** 



* GET TIME * 
X* THRESHOLD * 

* FROM RASTAB * 

* * 
***************** 



*****H3** ******** 
♦CALCTIME PC* 
*_*_*_*_*_*_*_*_* 

* CONVERT TIME * 

* THRESHOLD * 

* TO HOURS * 
***************** 



*****j3********** 

* * 

* PUT THRESHOLD * 

* VALUE IN * 

* MESSAGE * 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 
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Chart PE. $$BATTNS - MODE Command Validity Checker (Part 1 of 2) 
Refer to Chart 07. 



**** 

* * 

* i * 



****A1 ********* 

* * 

* $$BATTNS * 

* * 
*************** 



*****B1 ********** 



************** 



****C1*********** 
SEIZE 
* PHYSICAL * 
CONTROL 
* OF SYSTEM * 

***************** 



*****Dl********** 

* SAVE ADDRESS * 

* PORTION OF * 

* PROGRAM NEW * 

* PSW * 

* * 
***************** 



*****£!********** 

♦INSERT PROBLEM * 
♦PROGRAM RETURN * 

* ADDRESS INTO * 

* PROGRAM NEW * 

* PSW * 
***************** 



*****F1********** 



.* IS *. 
.* HIR.R *. H 
♦.INDICATED IN .*. 
*.M00EBITS .* 



*****B2********** 

* * 
♦TURN OFF HIR,Q ♦ 

* INDICATOR * 

* IN MCMODE * 

* * 
***************** 



*****C2 ********** 

* * 

* TURN ON HIR,R * 

* INDICATOR * 

* IN MCMODE * 

* * 
***************** 



*****Q2********** 

♦ RESET HIR ♦ 

♦ ERROR COUNT ♦ 

♦ TO ZERO ♦ 

♦ * 
***************** 



*****£2********** 

♦ CHANGE HIR ♦ 

♦ MODE TO ♦ 

♦ RECORDING VIA ♦ 

♦ LOAD CONTROL ♦ 

♦ REGISTER 14 ♦ 
***************** 



***** 
*PF * 
* Jl* PROCEORT 



IS 

HIR,Q 

.INDICATED. 



*****£ 3********** 

* * 

* TURN ON * 

* ALL QUIET * 

* INDICATORS ♦ 

* * 
***************** 



*****D3********** 

* CHANGE HIR * 

* MODE TO * 

* QUIET VIA ♦ 

* LOAD CONTROL ♦ 

* REGISTER ♦ 
***************** 



.♦ IS ♦. 
YES .♦ HIR»E ♦. 
...*. OR T 

♦.INDICATED.* 



*PF * 

* Jl* 
* * 



.* IS *. 

CPU 

MODEL 155 



*****£4********** 

* TURN M BIT * 

* ON TO AVOID * 

* DUPLICATING * 

* CODING ♦ 

* * 
***************** 



.* IS *. 

CPU 

MODEL 155 



♦SET UP POINTER ♦ 

♦ ECG(MAIN) ♦ 

♦ FIELD ♦ 

♦ * 
***************** 



RETURN 

*****G1********** 

* RESTORE ♦ 

* ORIGINAL ADDR * 

* PORTION OF * 

* PROGRAM NES * 

* PSW * 



****H1********** 

RELEASE 

♦ PHYSICAL ♦ 

CONTROL 

♦ OF SYSTEM ♦ 

***************** 



Jl ♦. 

.♦ IS ♦. 

.♦ R THE ♦. 

♦ONLY PARAMETER. 

♦.IN MODE- .♦ 

♦.BITS .* 

.♦ 



*****G2 ********** 

* CHANGE ECC * 

* TO QUIET MODE * 

* VIA DIAGNOSE * 

* INSTRUCTION * 

* * 
***************** 



*****G3** ******** 

* CHANGE ECC.M * 

* TO QUIET MODE * 

* VIA DIAGNOSE * 

* INSTRUCTION * 

* * 
***************** 



*****H3********** 

* CHANGE ECCtC * 

* TO QUIET MODE * 

* VIA DIAGNOSE * 

* INSTRUCTION * 

* * 
***************** 



*****£ 5********** 

* TURN ON ALL * 

* RECORDING * 

* INDICATORS * 

* IN MCMODE * 

* * 
***************** 



*****05********** 

* * 

* RESET HIR * 

* ERROR COUNT * 

* TO ZERO * 

* * 
***************** 



*****£ 5********** 

* * 

* RESET ECC,M * 

* ERROR COUNT * 

* TO ZERO * 

* * 
***************** 



*****F5********** 

* CHANGE HIR * 

* MODE TO * 

* RECORDING VIA * 

* LOAD CONTROL * 

* REGISTER 14 * 
***************** 



G5 *. 

.* IS *. 

CPU 

MODEL 155 



*****H4********** 

* CHANGE ECC TO * 

* RECOROING ♦ 

* MODE VIA ♦ 

* DIAGNOSE ♦ 

* INSTRUCTION ♦ 
***************** 



*****H5********** 

♦ CHANGE ECC,C ♦ 

♦ TO RECORDING ♦ 

♦ MODE VIA ♦ 

♦ OIAGNOSE ♦ 

♦ INSTRUCTION ♦ 
***************** 



***** 
*AB * 
* Bl* 



*NO 



CKH1RR 

*****K1 ********** 
♦SET UP POINTER ♦ 

♦ TO HIR FIELD * 

* IN RASTAB ♦ 

♦ (RMS TABLE! ♦ 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 
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Chart PF. $$BATTNS - MODE Command Validity Checker (Part 2 of 2) 
Refer to Chart 07. 



.* ECCIMI.R *. N 
*. INDICATED .*. 



A2 *. 

.* IS *. 

ECC,(M),Q 

INDICATED 



*****B1 ********** 
*HIR0UIET PF* 

*_*_*_*_*_*..*_*_* 

* *INSURE HIR * * 

* NOT IN QUIET* * 

* * MODE * * 
***************** 



*****d ********** 

* * 

* TURN OFF * 

* ECC<M),Q * 

* INDICATOR * 

* * 
***************** 



***D1 ********** 

* 

TURN ON * 

ECC(M),R * 

INDICATOR * 

* 

*************** 



*****£!********** 

* * 

* RESET ECC * 

* ERROR COUNT * 

* TO ZERO * 

* * 
***************** 



* TURN OFF * 

* ECCt(M),R * 

* INDICATOR * 

* * 
***************** 



* TURN ON * 

* ECC,(M),Q * 

* INDICATOR * 

* * 
***************** 



.* IS *. 
YES .* CPU 
...*. MODEL 155 



*****E 2********** 

* CHANGE ECC,M * 

* TO QUIET MODE * 

* VIA DIAGNOSE * 

* INSTRUCTION * 

* * 
***************** 



* 2 * 

* * 
**** 



*G1********** 
ANGE ECC TO * 
RECORDING * 
MODE VIA * 
DIAGNOSE * 
NSTRUCTION * 
************* 



*****G2 ********** 

* CHANGE ECCM * 

* TO RECORDING * 

* MODE VIA * 

* DIAGNOSE * 

* INSTRUCTION * 
***************** 



.♦ERROR COUNT*. YES 
. LIMIT TO BE .*.... 
*. CHANGED .* 



.X* 



*****J2********** 

* STORE NEW * 
ERROR COUNT * 

LIMIT IN * 
PROPER FIELD * 

* IN RASTAB * 
***************** 



PROCTTTT .*. 

Kl *. 

.* IS *. 

.* TIME * 

*. LIMIT TO BE 

*. CHANGED .* 



*****K2********** 

* STORE NEW * 

* TIME LIMIT IN * 
.X* PROPER FIELD * 

* IN RASTAB * 

* * 
***************** 



CONTROL .X. 



* 1 * 

* * 
**** 



CKECCCO .*. 

A4 *. 
.* IS *. 
.* ECCtCQ *. YES 
*. INDICATED .*.... 



.* IS *. 

CPU 

MODEL 155 



.* IS *. 

ECCR 

INDICATED 



**** 
* 3 



ECCCTBIT X 

*****£ 4** ******** 

*HIRQUIET PF* 



* INSURE HIR 

* NOT IN QUIET 

* MODE 
*************** 



***F 3** ******** 

TURN OFF * 

ECCtCQ * 

AND TH * 

INDICATORS * 

* 

*************** 



* TURN ON * 

* ECCCR * 

* INDICATOR * 

* * 
***************** 



*****H 3** ******** 

* * 

* RESET ECC * 

* ERROR COUNT * 

* TO ZERO * 

* * 
***************** 



*****j 3** ******** 

* * 

* CHANGE €CC»C * 

* TO RECORDING * 

* MODE * 

* * 
***************** 



* INSURE HIR * 

* NOT IN QUIET * 

* MODE * 
***************** 



*****04********** 

* TURN OFF * 

* ECCCR * 

* AND Q * 

* INDICATORS * 

* * 
***************** 



*****£ 4** ******** 

* * 

* TURN ON * 

* ECCCTH * 

* INDICATOR * 

* * 
***************** 



*****P4****** 



***************** 



*****B5 ********** 

* TURN OFF * 

* ECCCR * 

* AND TH * 

* INDICATORS * 

* * 
***************** 



*****C5** ****** 
* 

* TURN ON 

* ECC.CQ 

* INDICATOR 



*****95********** 



CHANGE ECC 

TO QUIET 

MODE 



**** 

* * 

* 2 * 



*F5 
EXIT TO NVSERR, 
CHART AC-B5, TO 
PRINT ERROR MESSAGE 
IN ROOT PHASE SSBATTNA. 



****H5********* 

* * 

* HIROUIET * 

* * 
*************** 



YES .* E OR T *. 
.. .*TO BE MODIFIED. 
*IN CONTROL.* 
♦STORAGE* 



* 2 * 

* * 
**** 



****K5***** 

* * 

* RETURN * 

* * 
*************** 



*K3 
PE-E2,G2 
PE-C4,H3 



***** 
*AB * 
* Bl* 
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APPENDIX A: LABEL LIST 



Certain labels in this Appendix are defined 
by superscripts (e.g., $$BDUMPF ± ) , which 
have these meanings: 

1 = Standard System Dumps 

2 = Translating System Dumps 

3 = Listing only 



Label 



Phase 



Chart 



A $$BE0J2 FG 

ADDLST $$BTERM HB 

The pointer from FAVP byte, which was 
pointing to the first available JIB 
before this terminating phase began, 
is put in the chain byte of the 
last-dequeued JIB (using register 8 as 
an intermediate storage) . The second 
byte of the LUB has a pointer to the 
first JIB associated with that LUB; 
this pointer is now put in the FAVP 
byte . 



ADDRLP $$BATTNH BG 

ALLOC $$BATTNE BA 

ALT $$BATTNI CB 

ALTER $$BDUMPF* MD 

$$BDUMPB MK 
$$BDUMPD MQ 
$$BPDUMl ND 
Switch set either to enter or to 
bypass the SPECIAL routine. To 
understand the use of this SPECIAL 
routine, which blanks out printing of 
the first two storage data words, 
consider this example: the beginning 
address of a problem program or 
parameter dump falls between 3F8 and 
3FF. To begin print of the dump at 
the nearest lower double- word 
boundary, it is necessary to blank out 
data from 3F0 through 3F7. 



For a parameter dump, if the 
desired starting address is 3FC, an 
additional calculation is made to 
determine the number of additional 
blanks needed. This number is put in 
register 2 by the $$BPDUMP monitor 
phase and passed to the phase actually 
performing the dump. This switch is, 
therefore, a NOP only once (if needed) 
at the outset of the problem program 
portion of a dump or a parameter dump, 
and is normally set to a branch. 



ALTER1 $$BDUMPF 1 MD 

$$BDUMPB MK 

$$BDUMPD MQ 

$$BPDUM1 ND 
This routine puts an extra two spaces 
between groups of four words, making a 
total of three spaces. This makes the 
dump easier to read, because storage 
locations such as 1B0, ICO, 1D0, etc. 
stand out clearly. The word counter, 
register 0, used for this grouping 
function is reset to 4. 

ALTER2 $$BDUMPF* MD 

$$BDUMPB MK 

$$BDUMPD MQ 

$$BPDUMl ND 
This routine increments register 6, 
which points to locations along the 
print line where data information is 
being assembled. Register 6 is 
incremented by nine for each new word 
to be printed: one for the space 
between words and eight for the print 
positions of each unpacked word. 

ALTER3 $$BDUMPF*- MD 

$$BDUMPB MK 

$$BDUMPD MQ 
Switch to enter or bypass instructions 
that create two blank spaces between 
the location counter and first word of 
storage data. Switch is set to 
branch, except when preparing the 
first word of each new print line. 



AMOUNT 


$$BDUMP 2 


KC 


ANAERR 


$$BATTNC 


AG 


AP 


$$BEOJ4 


FM 


APGO 


$$BEOJ4 


FM 


ARCANCEL 


$$BEOJ 


FA 


ASGCHG 


$$BATTNP 


EQ 


ASGLST 


$$BATTNJ 


CM 


ASGPUB 


$$BATTNI 


CB 


ASSGN 


$$BATTNI 


CA 


ASSGNLOG 


$$BATTNG 


BF 


ATTNH 


$$BATTNH 


BG 


B 


$$BEOJ2 


FG 




$$BEOJ2A 


FJ 


BAL 


$$BPDUM1* 


NB 


BALI 


$$BDUMP* 


LG 




$$BDUMPD 


MM 




$$BPDUMP 


NA 


In $$BDUMPD: Routine 


to blank out 


initializing instructions of this 


phase so 


this portion 


of storage can 


be used « 


as an I/O output area. 


In $$BPDUMP: Sense data is tested f< 



file-protect condition if SYSLST is a 
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tape unit. If it is protected, the 
dump cannot be taken, and this program 
phase returns to supervisor for 
selection of next task. If not 
protected, B-transient $$BPDUM1 is 
fetched to perform the actual 
parameter dump. 



BALR14 


$$BE0J1 


FF 




$$BPSW 


JE 


BATCH 


$$BATTNG 


BE 


BESTVE 


$$ BESTVE 


GF 


BGCALC 


$$BATTNG 


BF 


BGJOB 


$$BDUMPD* 


MM 


BLANKER 


$$BPDUMP 2 


LE 


BLANKS 


$$BDUMPD*- 


MQ 



Blanks are used to blank out the 
unneeded high-order positions of the 
Printline area when the registers and 
user's part of the communications 
region are printed. 

BLNK2 $$BDUMPF 1 - MD 

$$ BDUMPD MQ 
BLNKLD $$BATTND AM 
BLNKST $$BDUMPB* MK 
$$ BDUMPD MQ 
Switch that determines if BLANKS 
instruction tfill be used. Switch set 
to branch except under conditions 
given in the BLANKS label. 

BLNKLD $$BATTND AM 

BTLOOP $$BATTNA A3 

Beginning of a table lookup, in the 
branch vector table, that finds the 
appropriate B-transient required for 
further processing. 



BTSTCR $$BDUMPB ML 

BDUMPD MR 

$$BDUMPF 1 ME 

$$BPDUM1 NC 
Branch and link to TSTCOR subroutine 
is followed by comparing characters of 
the next line to be printed with those 
of the line just printed. If the next 
line is identical, a switch is set to 
branch to the CLRLIN routine that 
suspends printing the identical line 
and prints SAME instead. 



BUMP 


$$BCCHHR 


NJ 


BYPASS 


$$BSDRUP 


NG 


BYPSLOG 


$$BATTNJ 


CP 


C 


$$BE0J2 


FG 




$$BE0J2A 


FJ 


CALCTIME 


$$BATTNR 


PC 


CALLEOJ . 


$$BDUMP 2 


KC 


CALLPHSE 


$$BATTNQ 


PA 


CANCEL 


$$BATTNC 


AG 



CANCLB 


$$BATTNC 


AG 


CAS ERR 


$$BATTNI 


CA 




$$BATTNP 


EP 


CAUSE1 


$$BEOJl 


FE 


CAUSE 2 


$$BEOJ2 


FG 




$$BEOJ2A 


FJ 


CESWITCH 


$$BDUMPB 2 


KE 




$$BDUMPD 


KK 


CHAIN 


$$BTERM 


HB 


CHGSTT 


$$BATTNF 


BD 


CHKASG 


$$BATTNM 


EF 


CHKF1 


$$BATTNJ 


CK 


CHKF2 


$$BATTNJ 


CK 


CHKFGA 


$$BATTNH 


BH 


CHKFUA 


$$BATTNI 


CJ 


CHKJIB 


$$BATTNI 


CE 


CHKMOD 


$$BATTNI 


CA 


CHKNXC 


$$BATTNI 


CG 




$$BATTNK 


DB 


CHKOWN 


$$BATTNN 


EG 




$$BATTNP 


EP 


CHKPRN 


$$BATTNE 


BA 


CHKPUB 


$$BATTNI 


CD 


CHKRNG 


$$BATTNE 


BB 




$$BATTNI 


CG 




$$BATTNK 


DB 


CHKRNG1 


$$BATTNK 


DB 


CHKSLH 


$$BATTNK 


DA 


CHKSTT 


$$BATTNA 


AB 


CHKUA 


$$BATTNJ 


CK 


CKBF12 


$$BATTNC 


AG 


CKECCCQ 


$$BATTNS 


PF 


CKECCM 


$$BATTNS 


PE 


CKECCMQ 


$$BATTNS 


PF 


CKEEEE 


$$BATTNQ 


PB 


CKFORC 


$$BATTNQ 


PA 


CKFORECC 


$$BATTNQ 


PA 


CKFORHIR 


$$BATTNQ 


PA 


CKFORM 


$$BATTNQ 


PA 


CKFORQUI 


$$BATTNQ 


PA 


CKFORREC 


$$BATTNQ 


PA 


CKFORT 


$$BATTNQ 


PB 


CKFORTH 


$$BATTNQ 


PA 


CKF1F2 


$$BATTNB 


AE 


CKHIREOT 


$$BATTNS 


PE 


CKHIRQ 


$$BATTNS 


PE 


CKHIRR 


$$BATTNS 


PE 


CKLT8 


$$BATTNQ 


PB 


CKNDAR 


$$BATTNF 


BD 


CKNDCH 


$$BATTNI 


CB 


CKNXJB 


$$BATTNI 


CE 


Exit point to the scan 


JIB subroutine. 


SCNJIB. 


The subroutine is entered to 


reset JBSLUB according 


to any JIB 


chained 


to the logical 


unit. 


CKPBUA 


$$BATTNJ 


CK 


CKPIBFLG 


$$BATTNG 


BF 


CKSCST 


$$BATTNE 


BA 


CLEAR 


$$BDUMP 2 


KA 




$$BDUMP^ 


LF 


CLEARCTR 


$$BESTVD 


GD 


CLEAROPT 


$$BDUMPB 2 


KD 




$$ BDUMPD 


RJ 
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CLI $$BEOJ4 FM 

CLRLIN $$BDUMPF* MF 
$$BDUMPB ML 
$$BDUMPD MR 
$$BPDUM1 NC 

CMNWLM $$BATTNF BC 

CMPBPT $$BATTNI CE 

Test for identical PUB pointers. 
Identical PUB pointers indicate that 
another LUB is assigned to the 
physical unit pointed to by the LUB 
just unassigned. (See label UNPA in 
this list.) If there is no other LUB 
with a matching PUB, the ownership 
flag of the PUB indicated by the LUB 
in LBSLUB is reset so that the PUB is 
not assigned to any LUB. 

CMPCOR $$BDUMPF* MF 

$$BDUMPB ML 

$$BDUMPD MR 

$$BPDUM1 ND 
Register 5 contains the highest 
storage location that prints for any 
single line. Register 5 is compared 
to register 8 (which contains the 
upper storage limit of the dump) to 
see if limit of dump will be exceeded 
should the entire line be printed. If 
register 5 is higher than register 8 f 
the value in register 8 is then loaded 
into register 5 and the printing 
ceases at the dump limit. 



CNCLIN 


$$BATTNC 


AG 


CNCLME 


$$BATTNC 


AG 


CNCLTEST 


$$BEOJ 


FC 


CNLRTN 


$$BATTNC 


AG 


CNUNCO 


$$BATTNK 


DD 




$$BATTNM 


EF 


CNUNCOl 


$$BATTNK 


DD 


CNVBCD 


$$BATTND 


AM 


CNVTODEC 


$$BATTNR 


PC 


COMM 


$$BDUMPB* 


MH 




$$BDUMPD 


MN 


COMMRGN 


$$BDUMPB 2 


KG 




$$BDUMPD 


KJ 


COMPHI 


$$BDUMPB 2 


KG 




$$BDUMPD 


KM 




$$BPDUMP 


LD 


COMPLO 


$$BDUMPB 2 


KG 




$$BDUMPD 


KM 




$$BPDUMP 


LD 


CONCAT 


$$BATTNK 


DD 


Entry 


point to a subroutine us< 


1. 3 


Read the second 
statement. 


half of a 



Join the first and second parts 
of a statement forming a single 
statement, (This operation is 
called concatenation.) 

Reset the address of the operand 
in the I/O area named BUFFER. 

Reset the length of the operand. 



CONT $$BE0J3 FL 

CONTROL $$BATTNA AB 
CONTROL1 $$BATTNA AB 
CONTSCAN $$BTERM HC 
CONVERT $$BDUMPB 2 KG 
$$BDUMPD KM 
$$BPDUMP LD 
CORE $$BDUMPF* MB 

$$BDUMPB MH 
$$BDUMPD MN 
Register 7, containing the beginning 
storage address of the problem program 
area, is tested for proper boundary 
alignment. If register 7 is not on a 
boundary that is a multiple of 16, it 
is adjusted to a boundary such as 1B0, 
ICO, 1D0, etc # and the switch at 
ALTER is set to NOP. See label ALTER. 



CORE1 


$$BDUMPF* 


MB 




$$BDUMPD 


MN 


CORE2 


$$BDUMPF* 


MB 




$$BDUMPB 


MH 




$$BDUMPD 


MP 


CORE 2 5 


$$BDUMPF* 


MB 


CORE3 


$$BDUMPF* 


MB 




$$BDUMPB 


MH 




$$BDUMPD 


MN 


CORE35 


$$BDUMPFi 


MB 




$$BDUMPB 


MH 




$$BDUMPD 


MN 


COZERO 


$$BDUMPB 2 


KG 




$$BDUMPD 


KM 




$$BPDUMP 


LD 


CRTBLD 


$$BATTNE 


BA 


CUAPNX 


$$BATTNJ 


CK 


D 


$$BEOJ2 


FG 




$$BE0J2A 


FJ 


DATE 


$$BPDUMli 


ND 


DDSWTCH1 


$$BDUMPB 


KE 




$$BDUMPD 


KK 


DDSWTCH2 


$$BDUMPB 


KE 


DEQUEUE 


$$BDUMPD 
$$BTERM 


KK 
HB 



The JIB pointer from the LUB is 
temporarily stored at label FRLSTBEG. 
The JIB pointed at by the LUB is 
addressed, and its first 3 bytes are 
zeroed. The chain byte (1th byte) of 
the JIB is checked for additional JIBs 
in the chain; if there are any, the 
first 3 bytes of these JIBs are zeroed 
until the end of the chain is reached. 



DEQUEUED 


$$BTERM 


HB 


DEV2311 


$$BCCHHR 


NH 


DISABLE 


$$BEOJ3 


FL 


DISKRT 


$$BPDUMP A 


NA 


DKTYPE 


$$BEOJ 


FC 




$$BE0J1 


FF 




$$BE0J2 


FH 




$$BEOJ2A 


FK 




$$BILSVC 


JB 




$$BPSW 


JE 
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$$BPCHK 


JG 


DLAB 


$$BATTNL 


DJ 


DLBL 


$$BATTNK 


DF 


DLBOUT 


$$BATTNK 


DG 




$$BATTNL 


DJ 


DNEERR 


$$BATTNI 


CD 


DONE 


$$BEOJ3 


FL 




$$BTERM 


HA 


DOP34 


$$BATTNL 


DK 


DSKRT 


$$BDUMP* 


LF 


DTCHAT 


$$BATTNA 


AA 


DTCHSZ 


$$BATTNA 


AA 


DTINUN 


$$BATTNA 


AC 


DTSTCR 


j^BDUMPB* 


MF 


DUMP 


$$BDUMPD* 


MM 


ECCCTBIT 


$$BATTNS 


PF 


EDITCORE 


$$BPDUMP 2 


LC 


EDITLBL 


$$BDUMPB 2 


KE 




$$BDUMPD 


KK 


END1 


$$BDUMPB 2 


KF 




$$BDUMPD 


KL 




$$BPDUMP 


LC 


ENDJOB 


$$BDUMPB 2 


KE 




$$BDUMPD 


KK 


ENDLIN 


$$BDUMPF* 


ME 




$$BDUMPB 


ML 




$$BDUMPD 


MR 




$$BPDUM1 


NC 


ENDLIN1 


$$BDUMPFi 


MF 




$$BDUMPD 


MR 


ENDMOD 


$$BPDUMl 


NC 


ENDPUB 


$$BTERM 


HA 


ENTl 


$$BEOJ 


FD 


ENT2 


$$BEOJ 


FD 


EOJEST00 


$$BESTVD 


GD 


EOJEST01 


$$BESTVD 


GD 


EOJEST02 


$$BESTVD 


GD 


EOJEST03 


$$BESTVD 


GD 


EOJEST04 


$$BESTVD 


GE 


EOJEST05 


$$BESTVD 


GE 


EOJEST06 


$$BESTVD 


GE 


EOJEST07 


$$BESTVD 


GE 


EOJEST08 


$$BESTVD 


GE 


EOJEST1 


$$BESTVD 


GD 


EOJEST11 


$$BESTVD 


GD 


EOJEST2 


$$BESTVD 


GD 


EOJXIT 


$$BESTVD 


GD 


EOJS1 


$$BEOJ 


FB 


EOJSTEP 


$$BEOJ 


FB 


EOVMV 


$$BPDUM1> 


NE 


EQUALSW 


$$BDUMPB 2 


KF 




$$BDUMPD 


KL 




$$BPDUMP 


LC 


ERR1 


$$BESTVC 


GC 




$$BESTVF 


GG 



ERR2 


$$BESTVF 


GG 


ERR3 


$$BESTVC 


GC 


ERRORRTN 


$$BATTNQ 


PB 


ERROUT 


$$BESTVC 


GC 


ERRRTN 


$$BATTNA 


AC 


ERRRTN1 


$$BATTNH 


BH 


ERRSET 


$$BESTVC 


GC 


ESOPXIT 


$$BESTVC 


GC 




$$BESTVF 


GG 


ESOP002 


$$BESTVC 


GC 


ESOP02 


$$BESTVC 


GC 


ESOP06 


$$BESTVC 


GC 


ESOP07 


$$BESTVC 


GC 


ESOP08 


$$BESTVC 


GC 


ESOP09 


$$BESTVC 


GC 


ESOP092 


$$BESTVC 


GC 


ESOP10 


$$BESTVC 


GC 


ESOP12 


$$BESTVC 


GC 


ESTV01 


$$BESTVA 


GA 


ESTV02 


$$BESTVA 


GA 


ESTV06 


$$BESTVA 


GA 


E3TV08 


$$BESTVA 


GA 


ESTV10 


$$BESTVA 


GA 


ESTV12 


$$BESTVA 


GA 


ESTV14 


$$BESTVA 


GA 


ESTV16 


$$BESTVA 


GA 


ESTV20 


$$BESTVA 


GA 


ESXIT 


$$BESTVA 


GA 


EXCPRG 


$$BATTNA 


AC 


EXEC 


$$BATTNM 


EA 


Entry point to the execute (EXEC) 


processor. 


This phase 


is the last 


processing 


phase of the foreground 


initiator. 


The foreground program 


will be loaded when this phase has 


finished executing and 


when the 


foreground 


program has 


been chosen by 


the task selection mechanism of the 


supervisor 


• 




EXEC1 


$$BATTNM 


EB 




$$BESTVE 


GF 




$$BPDUMP 2 


LA 




^BPDUMP^ 


NA 




$$BPDUM1 


NC 




$$BSYSWR 


NF 


EXIT 


$$BCCHHR 


NJ 


EXIT1 


$$BCCHHR 


NJ 


EXTINT 


$$BATTNB 


AE 


EXTNT 


$$BATTNO 


EH 


F1CALC 


$$BATTNG 


BF 


F2CALC 


$$BATTNG 


BF 


F2CALC1 


$$BATTNG 


BF 


FDDKCODE 


$$BATTNK 


DF 




$$BATTNL 


DJ 
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FDEOJ 


$$BDUMPF* 


ME 


FDEOJ1 


$$BDUMPF 1 


ME 


FDK2 


$$BATTNK 


DF 


FDKIJ1 


$$BATTNK 


DP 


FDKIJ2 


$$BATTNK 


DF 


FDKTDAT 


$$BATTNK 


DE 


FDKTDAT1 


$$BATTNK 


DE 


FDKTDAT2 


$$BATTNK 


DE 


FDKTID 


$$BATTNK 


DE 


FDKTV 


$$BATTNK 


DA 


FDKTV1 


$$BATTNK 


DA 


FDKTV2 


$$BATTNK 


DA 


FDKTVNM 


$$BATTNK 


DA 


FEBIN1 


$$BATTNO 


EL 


FESEQ 


$$BATTNO 


EL 


FESEQCK 


$$BATTNO 


EJ 


FESPLIT 


$$BATTNO 


EK 


FESPLIT1 


$$BATTNO 


EK 


FESPLIT 2 


$$BATTNO 


EK 


FESPLIT4 


$$BATTNO 


EK 


FESYSX2 


$$BATTNO 


EH 


FESYSX3 


$$BATTNO 


EH 


FETCH 


$$BDUMP 


LG 




$$BESTVB 


GB 


FETCH07 


$$BDUMPB 2 


KH 




$$BPDUMP 


LE 


FETCH1 


$$BEOJ4 


FM 


FETINSRO 


$$BATTNK 


DC 


FETINSR1 


$$BATTNK 


DC 


FETINSRT 


$$BATTNK 


DC 


FETK 


$$BATTNO 


EJ 


FETKNO 


$$BATTNO 


EJ 


FETKNOl 


$$BATTNO 


EK 


FETKTK 


$$BATTNO 


EM 


FETKTK1 


$$BATTNO 


EM 


FETKTK2 


$$BATTNO 


EM 


FETYPE 


$$BATTNO 


EH 


FETYPE1 


$$BATTNO 


EJ 


FETYPED 


$$BATTNO 


EJ 


FETYPEI 


$$BATTNO 


EJ 


FETYPEIU 


$$BATTNO 


EJ 


FEVSER 


$$BATTNO 


EH 


FEVSER1 


$$BATTNO 


EH 


FEVSER2 


$$BATTNO 


EH 


FEVSER3 


$$BATTNO 


EH 


FEVSER4 


$$BATTNO 


EH 


FG 


$$BEOJ 


FB 


FG1 


$$BTERM 


HC 


FGHED 


$$BPDUM1 


ND 


FGJOB 


$$BEOJl 


FE 




$$BEOJ2 


FH 




$$BEOJ2A 


FK 




$$BILSVC 


JA 




$$BPSW 


JD 




$$BPCHK 


JF 




^BDUMP 1 


LG 




$$BPDUMP 


NA 


FGLST 


$$BEOJ 


FC 




$$BEOJl 


FF 




$$BEOJ2 


FH 



$$BEOJ2A FK 

$$BILSVC JB 

$$BPSW JE 

$$BPCHK JG 

FGNAME $$BPDUM1 ND 

FGTAPE $$BILSVC JB 

FHMIRMSG $$BATTNR PC 

FINISH $$BATTNM ED 

FIRST $$BEOJ3 FL 

FIX ^BPDUMl* NE 

When word counter reaches zero, two 
extra blanks are inserted between 
words so that locations such as 1B0, 
ICO, 1D0, etc/ will stand out, thus 
making the dump easier to read. 



FIX6 


$$BPDUMP 2 


LA 


FIX7 


$$BPDUMP*- 


NA 


FLPTSW 


$$BDUMPB* 


KD 




$$BDUMPD 


KJ 




$$BPDUMP 


LB 


FPSW 


$$BDUMPF* 


MB 




$$BDUMPB 


MH 


FSCAN 


$$BATTNK 


DC 




$$BATTNO 


EL 


FSCAN1 


$$BATTNK 


DC 




$$BATTNO 


EL 


FTCHBJ5 


$$BEOJ4 


FM 


FTEND 


$$BATTNK 


DC 


GETBYTE 


$$BTERM 


HC 


GETKEY 


$$BATTNI 


CJ 


GETMPSST 


^BDUMPB 3 - 


MH 


GETNXT 


$$BTERM 


HC 


GO 


$$BEOJ4 


FM 


GPR 


^BDUMPB 1 


MH 


GTNXJB 


$$BATTNI 


CE 


Continues search for 


LUBs with a PUB 


pointer 


that matches 


the pointer in 


LBSLUB. 


However, the 


i search is within 


the JIB 


table. 





GTNXLB $$BATTNI CE 

Start of a repetitive sequence of code 
to get each LUB of a given class and 
compare its PUB pointer with the PUB 
pointer of the LUB in LBSLUB. 



GTNXOP 


$$BATTNE 


BA 


HALTIO 


$$BEOJ3 


FL 


HALTIOl 


$$BEOJ3 


FL 


HEADER 


$$BDUMPB 2 


KH 




$$BDUMPD 


KN 




$$BPDUMP 


LE 


HERE 


$$BSYSWR 


NF 


HEXCON 


$$BATTNI 


CG 
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HOLD $$BATTNP EQ 

Entry point to the HOLD processor. 
This routine sets a switch in the 
appropriate PIB assign flag. This 
switch can be interrogated later by 
the job control program. 



IDSERR 


$$BATTNI 


CD 


IGNORE 


$$BATTNC 


AH 


IJBDMB33 


$$BDUMPB*- 


MG 


IJBDMD33 


$$BDUMPD* 


MM 


IJBDMF33 


$$BDUMPF*- 


MA 


IJBDMB35 


$$BDUMPB 2 


KD 


IJBDMD35 


$$BDUMPD 2 


KJ 


IJBDMP35 


$$BDUMP 2 


KA 


IJBEJ33 


$$BEOJ 


FA 


IJBEJ35 


$$BE0J2 


FG 


IJBEJ133 


$$BEOJl 


FE 


IJBEJ235 


$$BE0J2A 


FJ 


IJBEJ335 


$$BE0J3 


FL 


IJBEJ435 


$$BE0J4 


FM 


IJBEJ533 


$$BEOJ5 


FN 


IJBPCK33 


$$BPCHK 


JF 


IJBPD133 


$$BPDUM1*- 


NB 


IJBPDP33 


$$BPDUMP* 


NA 


IJBPDP34 


$$BPDUMP 2 


LA 


IJBPSW33 


$$BPSW 


JD 


IJBSVC33 


$$BILSVC 


JA 


IN02 


$$BESTVE 


GF 


IN04 


$$BESTVE 


GF 


IN06 


$$BESTVE 


GF 


IN08 


$$BESTVE 


GF 


IN10 


$$BESTVE 


GF 


IN14 


$$BESTVE 


GF 


IN142 


$$BESTVE 


GF 


INDSEQ 


$$BATTNL 


DL 


INIT 


$$BDUMPD 


MM 


INITDUMP 


$$BDUMP 2 


KA 


INITL 


$$BATTNM 


EE 


INITOPR 


$$BATTNG 


BF 


INNXEN 


$$BATTNE 


BA 


INSRTAEB 


$$BATTNR 


PD 


INTERR 


$$BEOJ 


FA 


ISCKSQ 


$$BATTNL 


DL 


ISTYP4 


$$BATTNL 


DL 


ITERATE 


$$BE0J3 


FL 



JACOM 



$$BEOJ4 



FM 



KLEER 


$$BDUMPB 2 


KH 




$$BDUMPD 


KN 




$$BPDUMP 


LE 


LA 


$$BILSVC 


JB 




$$BPCHK 


JG 


LABMV 


$$BSYSWR 


NF 


LABMV1 


$$BSYSWR 


NF 


LABMV2 


$$BSYSWR 


NF 


LABMV3 


$$BSYSWR 


NF 


LANXJB 


$$BATTNJ 


CM 



LASTPUB $$BEOJ3 FL 

LAXERR $$BATTNK DH 

$$BATTNL DL 

$$BATTNM EB 

$$BATTNO EH 

LBLOUT $$BATTNK DH 

Entry point to the subroutine used to 
output the label information that has 
been accumulated in the I/O area, 
BUFFER. The subroutine: 

1. Sets length information in the 
write and verify CCWs. 

2. Determines if space is available 
on the label track within SYSRES. 



3. Updates the disk address if 
necessary. 

4. Checks to ensure label area 
extents on SYSRES are not 
exceeded. 

5. Sets up the seek address and CCB. 

6. Branches to the I/O subroutine 
(EXCPRG) to write and verify the 
label information on SYSRES. See 
Appendix D for format of labels 
on SYSRES. 



LBLOUT1 


$$BATTNK 


DH 




$$BATTNM 


EB 


LBLTYP 


$$BATTNO 


EN 


LBTOUT 


$$BATTNO 


EN 


LISTIO 


$$BATTNJ 


CK 


LOAD 


$$BDUMPD*- 


MP 


LOADBPSW 


$$BEOJ2 


FG 




$$BEOJ2A 


FJ 


LOADR5 


$$BDUMPB 2 


KD 




$$BDUMPD 


KJ 




$$BPDUMP 


LA 


LOADTAB 


$$BDUMPB 2 


KG 




$$BDUMPD 


KM 




$$BPDUMP 


LD 


LOG 


$$BATTNC 


AJ 




$$BCCHHR 


NH 




$$BTERM 


HD 


LOGEXT 


$$BATTNH 


BH 


LOGGER 


$$BATTNH 


BH 




$$BATTNJ 


CL 




$$BEOJl 


FE 




$$BEOJ2 


FH 




$$BE0J2A 


FK 




$$BPSW 


JD 


LOGLIST 


$$BEOJ 


FC 


LOGLNE 


$$BATTNJ 


CP 


LOOP 


$$BEOJ 


FB 




$$BEOJ5 


FN 


LST 


$$BDUMPF^ 


MD 




$$BDUMPB 


MK 




$$BDUMPD 


MQ 
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$$BPDUM1 NE 
When last word of a Printline has been 
unpacked and printed, this switch is 
used to return from REGPNT subroutine 
to prepare the next line. For 
printing of registers and user's 
communications region, LST is a NOP 
that permits entry to a routine that 
blanks out unneeded high-order 
positions of the printline. 



LST1 $$BPDUM1* NE 

LSTASG $$BATTNJ CP 

LSTAUN $$BATTNJ CM 

Entry point to the subroutine that 
lists the assignments for either Fl or 
F2 system class and programmer class 
units. The subroutine sets up primary 
and secondary headers, calls the LUB 
scanning subroutine and the JIB 
scanning subroutine, and calls the 
final output subroutine. 



LSTBG $$BATTNJ CL 

LSTBGF $$BATTNJ CL 

LSTBUN $$BATTNJ CM 

LSTBUN1A $$BATTNJ CM 

LSTBUN2 $$BATTNJ CM 

LSTF1 $$BATTNJ CL 

LSTF2 $$BATTNJ CL 

LSTLN $$BDUMPF* ME 

$$BDUMPB ML 
$$BDUMPD MR 
$$BPDUM1 NC 
The location counter, register 7, is 
set and translated to identify the 
storage locations being printed on 
each line of the dump. This label is 
also used to enter the PRNTLN 
subroutine on a last line condition, 
thereby bypassing the TSTCOR 
subroutine. 



MAIN1 $$BPDUMP* NA 

The starting address for the parameter 
dump, entered in register 6, is 
shifted right double logical 4 
positions so that any value not a 
multiple of 16 is now in register 7. 
If value in register 7 is now zero, it 
indicates that the starting value in 
register 6 is on a double-word 
boundary. Register 6 is then restored 
by shifting left to the next lower 
doubleword boundary nearest the value 
specified by the dump parameter (label 
FIXT) . If register 7 was not zero 
when tested, the value now in it is 
used to calculate the number of blank 
positions needed so printout starts at 
desired starting byte. 

MAIN2 $$BPDUMP* NA 

The upper parameter address is 
incremented by a word length and 
tested against system's main storage 
capacity to see if requested dump is a 
valid address within core. If not, 
the upper storage limit is put in 
register 8 to impose a valid dump end 
limit. 

MAINTSK $$BE0J3 FL 

MAP $$BATTND AK 

MARK $$BEOJ FA 

MARK1 $$BEOJ FA 

MICR $$BEOJ FA 

MICR1 $$BEOJ FA 

MICRDEV $$BEOJ FA 

MKASGN $$BATTNI CB 

Entry point to a routine that makes 
the actual assignment during ASSGN 
processing. The assignment is made 
by: 

1. Establishing the PUB pointer in 
the LUB. 



LSTPRG $$BATTNJ CN 

LSTPRG1 $$BATTNJ CN 

LSTSTD $$BATTNJ CN 

LSTUA $$BATTNJ CP 

Program switch set to NOP when a UA 
operand is found. The switch is reset 
to a branch when the header 
•UNASSIGNED* has been printed. 



LUBCHECK 



$$BCCHHR 



NH 



2. Setting the ownership byte in the 
PUB. 

3. Setting the mode byte in the PUB. 
(For tape devices only.) 

MOD $$BTERM HA 

MODEOK $$BCCHHR NK 

MODRST $$BATTNI CA 

MOVE $$BDUMPD* MP 

Current address taken from the Disk 
Information Block (DIB) for the 
appropriate symbolic disk device is 
put in output area to serve as the 
count ID information when count, key, 
and data are written. The current 
address record number is then reduced 
by one and put in the search CCW for 
writing the first dump record. 



MOVE32 



$$BDUMPB 2 KF 
$$BDUMPD KL 
$$BPDUMP LC 
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MOVEREG $$BDUMPB KD 
$$BDUMPD KJ 

MOVESUB $$BEOJl FE 
$$BEOJ2 FG 
$$BEOJ2A FJ 

MOVLOP $$BATTNM ED 

Start of a repetitive sequence of code 
to move the last two routines of the 
EXEC processor to the main storage 
area occupied by the root phase, 
$$BATTNA. The root phase resides in 
the logical transient area of main 
storage. The two routines are moved 
256 bytes at a time. The last time 
the move is executed, the remaining 
bytes (less then 256) are moved to the 
logical transient area. 



MOVRTN $$BATTNM ED 

Entry point to the subroutine that: 

1. Moves any label information from 
the temporary label storage area 
to the label storage area. 

2. Clears the remainder of main 
storage to initialize it for the 
foreground program being 
initiated. 

MOVSW $$BPDUMP 2 LE 

MPSSYS $$BPDUMP 2 LB 

MSG $$BATTNB AE 

MSG1 $$BESTVE GF 

MT $$BILSVC JC 

$$BPCHK JF 

MTAPE $$BTERM HC 

The device type from the PUB table 
entry for the device is examined. If 
the device is not a tape drive, the 
PUB scan proceeds to the next entry in 
the table; if it is a tape drive, the 
Tape Error Block (TEB) for that 
particular drive is addressed and 
checked for any record of tape errors. 
If this tape drive has had no errors, 
the PUB scan resumes, and the next 
device in the PUB table is 
investigated. 

MTRSVD $$BATTNK 3 
$$BATTNL 3 
$$BATTN0 3 
A one- byte switch used when the file 
type is sequential disk (SD) : 
Bit 0=1: Look-ahead flag for LIOCS. 

Bit 1=1: Last extent for file. 

Bit 2: Not used. 

Bit 3=1: No extent dequeue. 

Bit 4=1: Extent limits omitted. 

Bit 5=1: Extent limits converted to 
address. 



Bits 6, 7: Not used. 



MVBLNK 



MVC 



MQ 
NE 
FG 
FJ 
JB 
JG 
ED 
HA 



$$BDUMPD* 

$$BPDUM1 

$$BEOJ2 

$$BE0J2A 

$$BILSVC 

$$BPCHK 
MVCLRT $$BATTNM 
MVI $$BTERM 

A detach flag is posted in the PIB for 
the terminated program. The portion 
of core occupied by this program is 
now available for overlay. An 
End-of -Termination switch is set in 
the PIBPUBAS flag byte, an SVC 22 
releases control of the system from 
this program, and an SVC 11 returns 
the system to the Task Selection 
routine of the supervisor. 



NAMED 


$$BE0J1 


FE 


NASERR 


$$BATTNI 


CB 


NDCHFD 


$$BATTNI 


CB 


NDSCAN 


$$BATTNA 


AD 




$$BATTNJ 


CN 




$$BATTNK 


DE 


NDSCAN1 


$$BATTNK 


DE 


NDTERR 


$$BATTNI 


CB 




$$BATTNM 


EE 




$$BATTNP 


EP 


NEWXTN 


$$BATTNL 


DN 




$$BATTNO 


EK 


NEXTBYTE 


$$BDUMPB2 


KG 




$$BDUMPD 


KM 




$$BPDUMP 


LD 


NEXTPARA 


$$BATTNQ 


PB 


NJPERR 


$$BATTNI 


CB 


NLSERR 


$$BATTNL 


DJ 




$$BATTNO 


EL 


NLUERR 


$$BATTNI 


CC 




$$BATTNK 


DD 




$$BATTNM 


EF 


NOAP 


$$BDUMP a 


KA 




$$BDUMP* 


LF 




$$BEOJ 


FA 




$$BEOJl 


FE 




$$BEOJ2 


FG 




$$BEOJ2A 


FJ 




$$BE0J4 


FM 




$$BILSVC 


JC 




$$BPCHK 


JF 


N0AP1 


$$BATTNG 


BE 


NOCHNG 


$$BDUMP* 


LG 


Routine 


used, when a foreground 


program 


is to be dumped 


, to identify 


the physical I/O device 


associated 


with SYSLST. The type 


of device 


determines which B- transient dump 


program 


will be fetched 


to perform the 


actual dump. 




NODCUX 


$$BATTNL 


DN 




$$BATTNO 


EK 


NOELT 


$$BATTNR 


PD 


NOESTV 


$$BEOJ4 


FM 


NOFG 


$$BEOJ 


FC 
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NOHOLD $$BEOJ5 FN 

NOLBPR $$BATTNM EC 

NOLOG $$BATTNC AJ 

NOP $$BTERM HC 

$$BILSVC JB 
$$BPCHK JD 
In $$BTERM ; Switch to enter or bypass 
the routine that prints headings prior 
to logging the Tape Error Block (TEB) 
statistics. Because only one set of 
headings is needed, this routine is 
used only for the first TEB statistics 
logged. Thereafter , this routine is 
bypassed by making this switch an 
unconditional branch. 

In $$BILSVC and $$BPCHK : After first 
line of message has been output, this 
switch is set to branch. The next 
time through, the second line of the 
message is output and the branch 
causes the transient $$3DUMP to be 
fetched. 



N0PT0DR2 $$BATTNA AA 

NOQTAM $$BEOJ FB 

NOTASG $$BATTNJ CP 

NOTBG $$BPCHK JF 

NOTCR $$BATTNI CD 

NOTEST $$BDUMPF* MA 
$$BDUMPB MG 
$$BDUMPD MM 
An area of storage used for phase 
initialization instructions is blanked 
out to be used as an output area for 
the dump. If needed, a branch is 
taken past the end of the cleared area 
to the next instruction. 



NOTIME 


$$BDUMP 


KA 




$$BDUMPB 


KH 




$$BDUMPD 


KN 


NOTSEQ 


$$BATTNL 


DL 


NOTZERO 


$$BDUMPB 2 


KH 




$$BDUMPD 


KN 




$$BPDUMP 


LE 




^BDUMPB 1 


MJ 


NOUNIT 


$$BATTNJ 


CN 


NULLOG 


$$BATTNA 


AC 


NUMCON 


$$BATTNI 


CG 




$$BATTNK 


DD 




$$BATTNO 


EM 


NUMLOP 


$$BATTNI 


CG 


NUMSYS 


$$BATTNI 


CG 


NVAERR 


$$BATTNF 


BC 


NVSERR 


$$BATTNA 


AC 


NWPBPT 


$$BATTNI 


CB 


NXPBNT 


$$BATTNF 


BD 


NXTLUB 


$$BATTNJ 


CM 


ONLIST 


$$BE0J1 


FE 




$$BE0J2 


FH 




$$BE0J2A 


FK 




$$BILSVC 


JA 




$$BPSW 


JD 




$$BPCHK 


JF 



OPNUMB $$BATTNA AC 
OPRSNT $$BATTNC AG 
OTHERS $$BEOJ FC 
OTSERR $$BATTNK DB 
$$BATTNL DH 
$$BATTNM EA 
$$BATTNO EJ 
OUT $$BDUMPF* ME 

$$BDUMPB ML 
$$BDUMPD MR 
$$BPDUMP NA 
Switch made a NOP when the supervisor 
portion of dump is completed. During 
the problem program portion of the 
dump, the switch permits exit from the 
dump phase by fetching $$BEOJ when the 
dump limit is reached. 



OUT1 $$BDUMPF*- ME 

$$BDUMPB ML 
$$BDUMPD MR 
If SYSLST is a tape unit, this switch 
is set to branch to write a tapemark 
following the record of the last line 
of the dump. 



OUT2 



OUT 3 



ME 
ML 
MR 
ME 
MR 
ME 
HA 



$$BDUMPF 1 

$$BDUMPB 

$$BDUMPD 

^BDUMPF* 

$$BDUMPD 
OUT3 $$BDUMPF*- 

OUTAR $$BTERM 

Entry point to this program phase. 
The output area address is loaded into 
a CCW. Register 13 is loaded as a 
link register to the unassign routine. 
The partition of the terminated 
program is identified as F2 or not F2. 
If F2, the ownership flags are reset 
in the PUB entries of devices owned by 
this program. 

If the program is not an F2 
program, it must be an Fl, because the 
$$BTERM phase is called to terminate 
foreground programs. The PIB assign 
flag byte is checked to see if the 
cancel switch is on, which indicates 
cancel occurred while in a terminator 
phase due to an I/O malfunction. To 
prevent a repetitive cancel-within- 
cancel loop, a branch is set in the 
switch at label LOG to suppress 
further I/O operations. 



OUTCALL 


$$BSDRUP 


NG 


OUTLBL 


$$BATTNL 


DN 




$$BATTNO 


EK 


OUTPUT 


$$BATTND 


AM 




$$BATTNJ 


CP 


OUTSTAT 


$$BATTNR 


PD 


OVLAY 


$$BILSVC 


JC 


OWNRSH 


$$BATTNI 


CA 
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PACKCG 


$$BATTNL 


DN 






$$BDUMPB 


MJ 




$$BATTNO 


EK 






$$BDUMPD 


MQ 


PAGHED 


$$BDUMPF*- 


MC 






$$BPDUM1 


NE 




$$BDUMPB 


MJ 




PRNTLN 


$$BDUMPF*- 


ME 




$$BDUMPD 


MP 






$$BDUMPB 


ML 




$$BPDUMl 


ND 






$$BDUMPD 


MR 


PARCKRTN 


$$BATTNQ 


PA 






$$BPDUM1 


NC 


PAUSE 


$$BATTNC 


AJ 




PRNTLN1 


$$BPDUM1*- 


NC 


PAUSE1 


$$BATTNC 


AJ 




PROCED 


$$BPDUMP 2 


LA 


PAUSE 2 


$$BATTNC 


AJ 






$$BPDUMPi 


NA 


PCTEST 


$$BEOJ 


FA 




PROCTTTT 


$$BATTNS 


PF 


PDUMP 


$$BPDUMl* 


NB 




PROG 


$$BEOJl 


FE 


PDUMP1 


$$BPDUM1*- 


NB 




PROGCHK 


$$BEOJ 


FC 


PDUMP 2 


$$BDUMPD* 


MN 




PRTRET 


$$BDUMPB*- 


MJ 


Switch set 


: to branch if 


it 


is a 


PUT 


$$BEOJ 


FD 


parameter 


dump. Bypasses printout of 




$$BDUMP*- 


LG 


all parts 


of core, exce 


spt the area 








specified 


in the parameter 


limits. 
















QTAM 


$$BEOJ 


FB 


PDUMPD 


$$BDUMPD*- 


MR 




QUEST 


$$BTERM 


HC 


PHYSEIZE 


$$BTERM 


HA 




QUEUE 


$$BEOJ3 


FL 


Further I/O operations 


are 


disabled. 








and an SVC 


: 22 is issued 


[ that disables 








multiprogramming and gives 


this 


RAS1 


$$BCCHHR 


NH 


program control over the system to 


RASPCRET 


$$BCCHHR 


NK 


complete its desired functions until 


RASSY 


$$BCCHHR 


NH 


another SVC 22 is issued tc 


> release 


RDSTMT 


$$BATTNA 


AC 


control . 








READ 
READISK 


$$BATTNP 
$$BCCHHR 


EP 
NH 


PNFORSVC 


$$BILSVC 


JC 




RECMODE 


$$BATTNR 


PC 


PNPERR 


$$BATTNM 


EA 




RECSWTCH 


$$BTERM 


HB 


PRCOMPL 


$$BTERM 


HA 




REDUCE 8 


$$BDUMPB 2 


KF 


PRGUNT 


$$BATTNM 


EF 






$$BDUMPD 


KL 


PRINT 


$$BE0J1 


FF 






$$BPDUMP 


LC 




$$BE0J2 


FH 




REGPNT 


$$BDUMPF* 


MD 




$$BEOJ2A 


FK 






$$BDUMPB 


MK 




$$BILSVC 


JC 






$$BDUMPD 


MQ 




$$BPSW 


JD 






$$BPDUM1 


NE 




$$BPCHK 


JG 




REGPNT1 


$$BDUMPF* 


MD 




$$BDUMPB 2 


KH 






$$BPDUM1 


NE 




$$BDUMPD 


KN 




REGPNT5 


$$BDUMPF* 


MD 




$$BPDUMP 


LE 






$$BDUMPB 


MK 




$$BDUMPF* 


MC 






$$BDUMPD 


MQ 




$$BDUMPB 


MJ 






$$BPDUM1 


NE 




$$BDUMPD 


MP 




REGPNT 6 


$$BPDUM1* 


NE 




$$BPDUMP 


NA 




RELOC 


$$BILSVC 


JA 




$$BPDUMl 


NE 






$$BDUMPB* 


MG 


PRINT1 


$$BDUMPD*- 


MP 






$$BPDUM*- 


NB 


Routine that uses PIOCS 


to 


seek. 


RELOCATE 


$$BDUMPB 2 


KD 


search ID 


equal, write 


count, key and 




$$BDUMPD 


KJ 


data, vera 


.fy, and wait 


for 


completion 




$$BESTVD 


GD 


of the I/C 


> operation. 






RELOCF 
RELSE 


$$BDUMPF A 
$$BATTNP 


MA 
EQ 


PRINTER 


$$BDUMP 2 


KC 




RESTRT 


$$BDUMPB 2 


KF 




$$BDUMPB 


KD 






$$BDUMPD 


KL 




$$BPDUMP 


LB 












$$BDUMP*- 


LF 




RESOP 


$$BATTNA 


AB 


PRNTL 


$$BDUMPF* 


MD 




RESSW 


$$BTERM 


HB 
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RETML 


$$BEOJ 


FA 


RETURN 


$$BATTNI 


CB 


REVSGN 


$$BATTNH 


BH 




$$BATTNJ 


CL 


RLCCB 


$$BEOJ 


FC 




$$BEOJ2 


FH 




$$BEOJ2A 


FK 




$$BILSVC 


JB 




$$BPCHK 


JF 


RMSWAIT 


$$BCCHHR 


NJ 


RNGTOP 


$$BATTNI 


CG 




$$BATTNK 


DB 


RSPPAE1 


$$BATTNF 


BD 


RSPPEA 


$$BATTNF 


BD 


RSTOWN 


$$BATTNI 


CE 


RVRSCN 


$$BATTND 


AM 


SAVEWORD 


$$BDUMPB 2 


KH 




$$BDUMPD 


KN 




$$BPDUMP 


LE 


SAVLUS 


$$BATTNJ 


CM 


SCANNO 


$$BPDUMP 2 


LD 


SCANR1 


$$BATTNA 


AD 


5CANR2 


$$BATTNA 


AD 


SCANR3 


$$BATTNA 


AD 


SCNJIB 


$$BATTNI 


CF 


Entry 


point to a subrc 


>utin< 



• Initializes JBSLUB with the first 
and last bytes of the JIB chained 
to the current pseudo LUB entry of 
JBSLUB. 

• Returns immediately to the calling 
sequence when an end- of- JIB- chain 
condition is found, 

SCNLBS $$BATTNI CE 

Entry point to a subroutine that: 

• Returns f sequentially , each LUB 
entry in a given class to the 
calling routine. 

• Returns immediately to the calling 
routine when there are no more 
entries in a given class. 

SCNLUB $$BATTNI CF 
SCNRL1 $$BATTNA AD 
SCNRL2 $$BATTNA AD 
$$BATTNK DE 
SETC0DE ^BDUMP* LF 
SETEXT $$BATTNB AF 
SETHEX10 $$BDUMP* LG 
SETLOGUN $$BE0J1 FF 
$$BEOJ2 FH 
$$BE0J2A FK 
$$BILSVC JA 
$$BPSW JD 
$$BPCHK JF 
Routine that sets logical unit address 
for SYSLST in CCB after determination 
of symbolic device to be used for 
message output. 



SETSW 


$$BPDUMP 2 


LC 


SETSW4 


$$BDUMPB 2 


KF 




$$BDUMPD 


KL 


SETUP 


$$BTERM 


HA 


SHIFT 


$$BDUMPB 2 


KH 




$$BDUMPD 


KN 




$$BPDUMP 


LE 


SKIP5 


$$BDUMPF* 


MC 


SKIPHDR 


$$BTERM 


HC 


SKPLIN 


$$BATTND 


AM 


SNGCHG 


$$BATTNP 


EQ 


SNGUNA 


$$BATTNI 


CH 


SPACE 


$$BATTNJ 


CN 


SPACE1 


$$BDUMPB 2 


KH 




$$BPDUMP 


LE 


SPACE 2 


$$BDUMPB 2 


KH 




$$BPDUMP 


LE 


SPECIAL 


^BDUMPF 1 


MD 




$$BDUMPD 


MQ 




$$BPDUM1 


NF 


See discussion of this 


label under 


ALTER. 






SPECIAL1 


$$BPDUM1 1 


NE 


START 


$$BATTNG 


BE 




$$BDUMPF^ 


MA 




$$BDUMPB 


MG 




$$BDUMPD 


MM 




$$BPDUMP 


NA 




$$BPDUM1 


NB 




$$BEOJ 


FA 




$$BPCHK 


JF 


START1 


$$BDUMPF* 


MA 


STARTF 


$$BATTNF 


BC 


STARTIO 


$$BDUMPB 2 


KH 




$$BDUMPD 


KN 




$$BPDUMP 


LE 


STDSWH 


$$BATTNJ 


CM 



Program switch set to branch when 
stored standard assignments are to be 
logged. The branch is taken at the 
end of the JIB table scan. The scan 
finds any stored standard assignments. 
The switch is reset at location 
LSTSTD. 



STEXCD 


$$BATTNB 


AF 


STH 


$$BE0J1 


FF 




$$BPSW 


JE 


STLLMT 


$$BATTNF 


BC 


STORCEWD 


$$BDUMP* 


KC 


STORE1 


$$BPDUMP 2 


LB 


STORE5 


$$BDUMPB 2 


KF 




$$BDUMPD 


KL 




$$BPDUMP 


LC 


STORECPU 


$$BCCHHR 


NK 


STORSTRT 


$$BDUMP 2 


KA 


STORWD 


$$BDUMP 2 


KC 


STUBGL 


$$BATTND 


AL 


STUCRL 


$$BATTND 


AL 
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STUF1U 


$$BATTND 


AL 


STUSPC 


$$BATTND 


AL 


SUB1 


$$BDUMPD 2 


KN 


SUBEOJ 


$$BEOJ 


FA 


SUBLOOP 


$$BATTNC 


AH 


SUPPRIO 


$$BEOJ 


FB 



This routine is entered if an abnormal 
end-of-job condition occurs while 
transient $$BTERM is executing. An 
I/O unrecoverable error would cause a 
cancel of $$BTERM itself, resulting in 
an unending loop. Therefore, I/O 
operation is bypassed and $$BTERM is 
recalled. 



SUPV $$BDUMPF* MB 

$$BDUMPD MN 
SUPV1 $$BDUMPF* KB 

$$BDUMPB MH 

$$BDUMPD MN 
SVCO $$BEOJ FD 

SVC 2 $$BEOJ FC 

SVCERR $$BEOJ FC 
SWITCH1 $$BDUMP3 2 KG 

$$BDUMPD KM 

$$BPDUMP LD 
SWITCH2 $$BDUMPB 2 KG 

$$BDUMPD KM 

$$BPDUMP LD 
SWITCH3 $$BDUMPB 2 KF 

$$BDUMPD KL 

$$BPDUMP LC 
SWITCH** $$BDUMPB 2 KG 

$$BDUMPD KM 

$$BPDUMP LD 
SWTCHOFF $$BDUMPB* KH 

$$BDUMPD KN 
SXTPOK $$BATTNL DL 

SYSMODM $$BATTNI CC 
SYSRFG $$BATTNI CC 
SYSSWH $$BATTNJ CM 

Program, switch set to branch when 
system units are to be logged. The 
switch is set to branch by the list BG 
routine (Chart PF) . The switch is 
reset to NOP after the system class 
units have all been logged. 



SYSTST $$BDUMP* LF 

Routine similar to the NOCHNG routine- 
Identifies the physical device 
assigned to SYSLST for a background 
program dump. 



TAPE1 $$BDUMP* LG 

When SYSLST is a tape unit f the CCB 
and CCW are modified accordingly to 
perform a sense operation for a 
file-protect condition. Register 12 
signals the fetched dump program that 
a tape unit is to receive the storage 
dump. 



TAPELST $$BDUMP 2 KC 

TAPNOP $$BDUMPF* MC 

TAPRTN $$BDUMPF*- MA 

Data address is stored in the tape 
CCW, and CCB is furnished with the CCW 
address. Switches at OUTl and TAPNOP 
are set to branch to perform functions 
necessary for output on tape unit. 



SYSUNT 


$$BATTNJ 


CM 


SYSWR 


$$BYSWR 


NF 


SYSXN2 


$$BATTNI 


CC 


SYSXXX 


$$BATTNI 


CC 



TAPSYS 


$$BDUMPF i 


MC 


TAPSYS1 


$$BD\3MVF ± 


MC 


TEB 


$$BTERM 


HC 


TEBVDPL 


$$BEOJ«* 


FM 


TERM 


$$BE0J1 


FF 




$$BILSVC 


JB 




$$BPSW 


JE 




$$BPCHK 


JF 




$$BDUMP*- 


LG 




$$BTERM 


HB 


TEST1 


$$BTERM 


HB 


TESTBG 


$$BDUMP 


KC 


TESTCODE 


$$BCCHHR 


NH 


TESTEOF 


$$BDUMPB 


KH 




$$BPDUMP 


LE 


TESTLST 


$$BDUMP 


KC 




$$BPDUMP 


LA 


TFILL 


$$BATTNK 


DB 


TIMER 


$$BATTNN 


EG 


TIMLNK 


$$BATTNN 


EG 


TLBL 


$$BATTNK 


DC 


TM 


$$BE0J3 


FL 


TMFAVP 


$$BATTNI 


CE 


TNAERR 


$$BATTNN 


EG 


TPLAB 


$$BATTNK 


DB 


TPLEND 


$$BATTNK 


DB 


TPMARK 


$$BD\3lf[PF ± 


ME 


TPRTN 


^BDUMPB 1 


MG 




$$BPDUM1 


NB 


TPTYPE 


$$BEOJ 


FC 




$$BEOJl 


FF 




$$BEOJ2 


FH 




$$BEOJ2A 


FK 




$$BILSVC 


JB 




$$BPSW 


JE 




$$BPCHK 


JG 




$$BDUMP i 


LG 


TPTYPE1 


$$BEOJ 


FC 




$$BE0J1 


FF 




$$BE0J2 


FH 




$$BEOJ2A 


FK 




$$BILSVC 


JB 




$$BPSW 


JE 




$$BPCHK 


JG 


TRANS 


$$BDUMPB* 


MK 


TSTBATCH 


$$BE0J1 


FF 
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$$BE0J2 FH 

$$BE0J2A FK 

$$BPSW JE 

$$BPCHK JG 
TSTBJF $$BE0J1 FE 

$$BEOJ2 FH 

$$BE0J2A FK 

$$BILSVC JA 
TSTCOR $$BDUMPF* MF 

$$BDUMPB ML 

$$BDUMPD MR 

$$BPDUMl ND 
Entry to subroutine that tests whether 
storage area to be printed on a line 
is in dump limits and whether the next 
line is the last line. Register 3 
points to the storage address of the 
first byte of a line to be printed, 
and register 5 points to the last byte 
of the line. See discussion of the 
CMPCOR label f which is part of this 
subroutine. 

TSTLST $$BE0J1 FE 

$$BEOJ2 FH 

$$BE0J2A FK 

$$BILSVC JA 

$$BPSW JD 

$$BPCHK JF 

$$BDUMPF* MF 

$$BDUMPB ML 

$$BDUMPD MR 

$$BPDUM1 NC 
TSTLST1 $$BDUMPF* MF 

$$BDUMPB ML 

$$BDUMPD MR 

$$BPDUM1 NC 
Switch that is set to a branch on last 
line of dump. If a portion of core is 
identical to the previous line, this 
switch is set to NOP and the identical 
data is shown by printing a line 
with SAME . 



TSTPRT 


$$BDUMPF* 


MF 




$$BDUMPB 


ML 




$$BDUMPD 


MR 




$$BPDUMl 


NC 


TTTTMULT 


$$BATTNQ 


PB 


TURNETON 


$$BATTNQ 


PB 


TXCUU 


$$BATTNI 


CD 


TYPTYPE1 


$$BEOJl 


FF 



UALNOT $$BATTNJ CP 

UAPSWH $$BATTNJ CK 

Program switch set to branch after 
unit assignments have been listed. 
This switch is initialized in the NOP 
state. It is set to branch just 
before the 'UNASSIGNED' header is 
logged. 



UCS4 $$BATTNM EE 

UCSDN $$BATTNM EE 

UCSSCN $$BATTNM EE 

UCUERR $$BATTNI CJ 

UNA $$BATTNI CH 

UNAGO $$BATTNI CJ 

UNALOP $$BATTNI CJ 

UNANO $$BATTNI CJ 

UNARTN $$BATTNI CJ 

UNASSGN $$BTERM HA 

Test for resetting symbolic device 
assignments and, if required, continue 
to the next chart, where the LUBNDX 
from the PIB of this program (Fl or 
F2) is inserted in register 5. In the 
case of Fl, for example, LUBNDX is 
equal to the sum of the LUBs assigned 
to devices owned by the system 
programs, the background program, and 
the foreground 2 program. This index 
is doubled because there are two bytes 
per LUB entry. The result is the 
displacement from the LUB table 
starting address, where this 
foreground program* s LUBs begin. By 
adding this displacement to the LUB 
table starting address, the actual 
address for the first LUB is obtained 
in register 5. 

The number of LUBs assigned to this 
type of foreground program is obtained 
from the NICL (Number- in-Class) ; this 
value is adjusted and doubled. 

UNAV $$BATTNG BF 

UNCLOG $$BATTNH BH 

UNNORM $$BEOJ FB 
Routine entered when abnormal 
end-of-job condition exists. 
Investigation of cause of cancel and 
type of program executing is made, to 
determine which B-transient of the 
terminating phases to call next. 

UNPA $$BATTNI CE 

Entry point to a routine that 
unassigns currently assigned logical 
units. The subroutine -saves, in 
location LBSLUB, the LUB entry of the 
LUB to be unassigned. It then 
unassigns the LUB in the LUB table. 
It checks the LUB table and JIB table 
for other LUBs that point to the same 
physical unit as that of the LUB just 
unassigned. It resets the ownership 
flag in the PUB if no other LUBs point 
to that physical unit. Any stored 
alternate assignments found in the JIB 
table are treated as LUBs (unassigned, 
then checked for matching PUB 
pointers) . 



ucs 


$$BATTNM 


EE 


ucsi 


$$BATTNM 


EE 


UCS 2 


$$BATTNM 


EE 


UCS 3 


$$BATTNM 


EE 



UNPACK 


$$BDUMPB 


KG 




$$BDUMPD 


KM 




$$BPDUMP 


LD 


UNPAN2 


$$BATTNI 


CE 


UNPK 


$$BDUMPF 1 


MD 
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UNPK1 


$$BDUMPB 

$$BDUMPD 

$$BPDUMl 

$$BDUMPF* 

$$BDUMPD 

$$BPDUM1 


MK 
MQ 
ND 
MD 
MQ 
ND 


VOL 


$$BATTNK 


DA 


WAITLOOP 
WFM 
WFMRES 
WRITEREC 


$$BCCHHR 
$$BATTNH 
$$BATTNH 
$$BESTVD 


NH 
BG 
BH 
GE 



XTOP34 $$BATTNL DP 

Entry point to a subroutine that 
extracts limit information from the 
XTENT statement, performs initial 
validity checks , converts the numeric 
EBCDIC limit data to binary , and puts 
the limits into the label area, DSECT 
(I/O area) . 



XTOP5 $$BATTNL DM 

Entry point to the routine that: 

1. Gets and checks the serial 
number, and stores it in the 
label area DSECT (I/O area). 



XTENT $$BATTNL DL 

XTOP12 $$BATTNL DP 

Entry point to a subroutine that 
extracts and validity checks the first 
two operands (type and sequence 
number) of an XTENT statement. It 
converts the operand to binary, and 
stores it in the label area, DSECT 
(I/O area) . 



XTOUT 
XTUNIT 



Converts the SYSXXX field of the 
extent to class and displacement. 

Gets the B2 field of an extent, 
converts it to binary, and stores 
it in the label area, DSECT (I/O 
area) . 



$$BATTNL 
$$BATTNO 



DN 
EK 



XT0P12A 
XT0P12B 
XT0P3 



$$BATTNO EL 
$$BATTNO EL 
$$BATTNL DM 



ZERTEBV 



$$BE0J4 



FM 
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APPENDIX B: ERROR MESSAGE CROSS REFERENCE 



Messaqe 


Phase 


Chart 


0P70I 


$$BEOJ2 


FG* 


0P71I 


$$BEOJ2 


FG* 


0P72I 


$$BEOJ2 


FG* 


0P73I 


$$BEOJ2A 


FJ* 


0P74I 


$$BEOJ2A 


FJ* 


0P75I 


$$BEOJ2 


FG* 


0P76I 


$$BEOJ2 


FG* 


0P77I 


$$BEOJ2 


FG* 


0P78I 


$$BEOJ2A 


FJ* 


0P79I 


$$BEOJ2A 


FJ* 


0P81I 


$$BEOJ2A 


FJ* 


0P82I 


$$BEOJ2A 


FJ* 


OP83A 


$$BEOJ2 


FG* 


0P83I 


$$BEOJ2 


FG* 


0P84I 


$$BEOJ2A 


FJ* 


0P85I 


$$BEOJ2A 


FJ* 


0S00I 


$$BPCHK 
$$BILSVC 


JF 
JA 


0S01I 


$$BEOJ2 


FG* 


0S02I 


$$BEOJ2 


FG* 


0S03I 


$$BPCHK 


JF* 


0S04I 


$$BILSVC 


JA* 


0S05I 


$$BILSVC 


JA* 


0S06I 


$$BEOJl 


FE 


0S07I 


$$BPSW 


JD 


0S08I 


$$BEOJ 


FA 


0S09I 


$$BEOJl 


FE* 



0S10I 



$$BTERM 



HA 



♦Also refer to Cancel Codes and 
Messages Figure. 



0S11I 


$$BEOJl 


FE* 


0S12I 


$$BEOJ2A 


FJ* 


0S13I 


$$BEOJ2A 


FJ* 


0S14I 


$$BEOJ2A 


FJ* 


1A00D 


$$BATTNI 


CB 


1A10D 


$$BATTNI 
$$BATTNP 


CA 

EP 


1A20D 


$$BATTNI 
$$BATTNM 
$$BATTNP 


CA,CB 

EE 

EP 


1A30D 


$$BATTNI 


CB 


1A40D 


$$BATTNI 
$$BATTNK 
$$BATTNM 


CC 
DD 
EE,EF 


1A50D 


$$BATTNI 


CD 


1A60D 


$$BATTNI 


CJ 


1A70D 


$$BATTNI 


CD 


1C20D 


$$BATTNH 


BH 


1C30A 


$$BATTNM 


EA # EE 


1C40I 


$$BATTNB 


AF 


1C50I 


$$BATTNB 


AF 


1C60D 


$$BATTNN 


EG 


1I30D 


$$BATTNC 


AG 


1I60A 


$$BATTNA 


AA 


1I80I 


$$BTERM 


HA 


1L00D 


$$BATTNL 
$$BATTNO 


DH # DK,DL f DN 
EJ, EK # EL f EM 


1L10D 


$$BATTNK 
$$BATTNL 
$$BATTNM 
$$BATTNO 


DG 
DK 
EB 
EH 


1P00D 


$$BATTNF 


BC 


1P10D 


$$BATTNG 


BF 
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1S00D 



1S10D 



$$BATTNA 
$$BATTNB 
$$BATTNC 
$$BATTNE 
$$BATTNG 
$$BATTNI 

$$BATTNJ 
$$BATTNK 

$$BATTNL 
$$BATTNM 
$$BATTNN 
$$BATTNO 

$$BATTNP 

$$BATTNK 
$$BATTNL 
$$BATTNM 
$$BATTNO 



AB,AC 

AE 

AG 

BA,BB 

BF 

CA,CC f CD, 

CG,CH,CJ 

CK 

DA,DB,DC, 

DD,DE,DF 

DH f DJ f DL 

EA, EE, EF 

EG 

EH i E J g EK § 

EL, EM, EN 

EP,EQ 

DA,DB 
DH f DK 
EA 
EH,EJ 



4E00I 


$$BESTVB 


aEOii 


$$BESTVC 


4E02I 


$$BESTVC 


4E03I 


$$BESTVE 


4E04I 


$$BESTVC 


4E05I 


$$BESTVF 


4E06I 


$$BESTVF 



GB 



GC 



GC 



GF 



GC 



GG 



GG 
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APPENDIX C; SUPERVISOR REFERENCE FIGURES 



NICL FICL, LUB 
System 
BG 
F2 
Fl 
= number of units 
i = index displacement 
within LUB table 



n 




n 








n 




j_ 


n 




_L 


n 




i 




KEY: 

NICL (Number in Class) 

FICL (First in Class) 

LUB (Logical Unit Block) Table 
PUB (Physical Unit Block) Table 

FOCL (First on Channel List) 

TEB (Tape Error Block by Unit) 
TEBV (Tape Error Block by Volume) 

FAVP (First Available Pointer) 
JIB (Job Information Block) 

CHANQ (Channel Queue) Table 

LUBID(LUB Identification) 
T^EQID (Requestor Identification) 
LUBDSP (LUB Displacement) 
FLPTR (Free List Pointer) 
SAB (Seek Address Block) 

TKHDTAB (Track Hold Table) 



: The first byte contains the number of system class units. The second, third, and fourth bytes contain the number of 
programmer class units (BG, F2, Fl ) (Figure 24). 

: The first byte points to the first system class unit in the LUB table. (Always the first LUB table entry.) The second byte 
points to the first programmer class unit in the LUB table BG area. The third points to the first programmer class unit 
in the LUB table F2 area. The fourth points to the first programmer class unit in the LUB table Fl area (Figure 24). 

: The first byte points to a PUB table entry (if the logical unit is assigned) or contains X'FF' . The second byte points 
to a JIB table entry or contains X'FF 1 (Figure 24). 

: The first two bytes contain the channel and unit address of the physical device; the third a CHANQ pointer; the 
fourth a TEB pointer; the fifth device type codes; the sixth a device characteristic code or a SAB pointer; the seventh 
the channel scheduler flag; and the eighth has the job control flag (See Figure 19). 

: The first byte points to the first PUB (highest priorityKon channel zero. The next byte points to the first PUB (highest 
priority) on channel one, etc. A hexadecimal FF indicates the associated channel is not supported. 

: One TEB is built for each tape unit at supervisor generation time if tape error statistics by unit are required (Figure 21). 

: One TEBV is built for each tape unit at supervisor generation time if tape error statistics by volume are required 
(Figure 22). 

: A one-byte pointer to the next available JIB entry. 

: The first two bytes contain extent or LUB information. The third contains ownership and JIB flags. The fourth contains 
JIB chaining information (Figure 20). 

: The first byte contains the chain field (a pointer to the next in queue). The last three bytes contain the CCB address 
(Figure 18). 

: A one-byte pointer to the LUB making the I/O request. 

: A one-byte pointer to the program containing the CCB (Figure 18). 

: A one-byte value equal to the absolute LUB number (CCB byte 7). 

: A one-byte pointer to the next free entry in the channel queue (Figure 18). 

: A four-byte (BCCH) address that is the current disk address of the device plus a fifth byte that contains a Track Hold 
Table pointer of X'FF'. If the Track Hold function is not supported, the fifth byte contains X'00' . 

: The first byte contains a pointer to the next available entry (or X'FF 1 ); bytes 2-4 have CCB address of the requesting 
task; bytes 5-10 have a disk address (BBCCHH) of track being held; byte 1 1 has key of owning track; and byte 12 has 
two uses: bit 0=1 means a task is waiting for the track, and bits 4-7 count the number of holds on the track. (Figure 
25). Note: The number of holds is one more than the value of bits 4 - 7 of the last byte. 



THFLPTR (Track Hold Free List Pointer) 
TKREQID (Track Requestor Identification) 

Figure 8. I/O Table Interrelationship 



: A one-byte pointer to the next free entry in the Track Hold Table. 
: A one-byte pointer to the PIB of the task requesting I/O. 
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COMREG* 

Displacement 
hexadecimal 

Displacement 
decimal 







8 
8 


OA 
10 


OC 
12 


17 
23 


18 

24 


20 
32 


24 
36 


28 
40 


2C 

44 


Date 


Address of 
PPBEG 


Address of 
EOSSP 


Problem Program Use 


UPSI 
Byte 


Job Name 


Highest 
Storage 
Address 
of the 
Partition 


End Address 
of Last Phase 
Fetched or 
Loaded 


Address of 
Uppermost 
Byte of Phase 
With Hiahest 
Ending Address 


Label 
Area 
Length 


XXXXXXXX 


XX 


XX 


XXXXXXXXXXX 


X 


XXXXXXXX 


XXXX 


XXXX 


XXXX 


XX 



Displacement 
hexadecimal 

Displacement 
decimal 



2E 
46 


30 
48 


34 
52 


35 
53 


36 
54 


37 
55 


38 
56 


39 
57 


3A 
58 


3B 
59 


3C 
60 


3E 
62 


PIK 

(PID) 


End of 

Storage 

Address 


Machine 

Confg. 

Byte 


System 
Confg. 
Byte 


Standard 

Language 

Translator 

I/O 

Options 


Dump, 
Log and 
ASCII 
Options 


Job 

Control 

Byte 


Linkage 
Control 
Byte 


Language 
Translator 
Control 
Byte 


Job 

Duration 
Indicator 
Byte 


Disk 

Address of 
Label 
Cylinder 


Address 

of 

FOCL 


XX 


XXXX 


X 


X 


X 


X 


X 


X 


X 


X 


XX 


XX 



Job Control Switches 



Displacement 
hexadecimal 

Displacement 
decimal 



40 


42 


44 


46 


48 


4A 


4C 


4E 


4F 


58 


5A 


5C 


64 


66 


68 


70 


72 


74 


76 


78 


79 


88 


90 


92 


Address 


Address 


Address 


Address 


Address 


Address 


Address 


Line 


System Date 


LIOCS 


Address of 


ID Number 


of 


of 


of 


of 


of 


of 


of 


Count 




Comm. 


1st Part of 


of Last 


PUB 


FAVP 


JIB 


TEB 


FICL 


NICL 


LUB 


for 
SYSLST 




Bytes 


PIB Table 


Checkpoint 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


X 


XXXXXXXXX 


XX 


XX 


XX 



Displacement 
hexadecimal 

Displacement 
decimal 



5E 
94 


60 
96 


62 
98 


64 
100 


66 
102 


68 
104 


6A 
106 


6C 
108 


6E 
110 


Length of LUB 
ID Queue = 
No. of Channel 
Queue Entries 


Address of 
Disk 

Information 
Block (DIB) 


Address of 
Error 
Recovery 
Block 


Address of 
PC Option 
Table less 
8 bytes 


Address of 
IT Option 
Table less 
8 bytes 


Address of 
OC Option 
Table less 
8 bytes 


Key of 
Program 
with Timer 
Support 


Address of 
the LUBID 
Queue 


Logical 

Transient 

Key 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 



Displacement 
hexadecimal 

Displacement 
decimal 



70 
112 


7C 
124 


7E 
126 


80 
128 


84 
132 


86 
134 


87 
135 


88 
136 


Supervisor Constants 


Address of 
2nd 
Part of 
PIB Table 


Address of 
MICR DTF 
Table 
(PDTABB) 


Address of 
QTAM 
Vector 
Table 


Address of 
BG Comm. 
Region 


Op- 
tion 
Indi- 
cator 


System Con- 
figuration 
Byte 2 


Pointer to 
Comm. 
Region 
Extension 


XXXXXXXXXXXX 


XX 


XX 


XXXX 


XX 


X 


X 


XXXX 



* The address of the communications region is in fixed location X'14' - X'17'. 

Displacement values illustrated can be used to access the listing and/or the key that follows the figure. 
The key offers more detailed information about each area when necessary. 

Figure 9. Supervisor Communications Region (Part 1 of 5) 
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Key to Communications Region Displacements: 



HI 

10 



El 



24 



32 



36 



40 







MM/DD/YY or DD/MM/YY obtained from the job control date statement. Format controlled by COMREG + 53 
(System Configuration Byte, date convention bit 0). 

Address of the problem program area. 

Address of the beginning of the problem program area. Y (EOSSP) = Y (PPBEG) if the storage protection option has not 
been selected. Y (EOSSP) equals the first main storage location with a storage protection key of 1 , if storage protection 
is supported . 

User area. If seek separation option is' specified, bytes 12 and 13 are used at I PL time for the address of the seek 
address block. 

User program switch indicator. 

Job name set by the job control program from information found in the job statement. 

Address of the uppermost byte of the problem program area as determined by the IPL program (Clear storage routine 
determines the address, ENDRD routine of $$A$IPL2 stores it.), or the address of the uppe/most byte of the partition 
as determined during processing of the ALLOC statement. 

Address of the uppermost byte of the last phase of the problem program fetched or loaded. The initial value (as shown) 
is overlaid by the first fetch or load to the problem program area. 

Highest ending main-storage address of the phase among all the phases having the same first four characters as the 
operand on the EXEC statement. For the background partition only, job control builds a phase directory of these 
phases. The address value may be incorrect if the program loads any of these phases above its link-edited origin 
address. If the EXEC statement has no operand, job control places in this location the ending address of the program 
just link-edited. 

Length of the problem program label area. 

Program Interrupt Key - PIK (if asynchronous processing is not supported): Value is equal to the displacement from the 
start of the PIB table to the PIB for the task. 

QR 
Partition Identifier- PID (if asynchronous processing is supported): Value is hex 10, 20, or 30 to identify the partition 
in which a maintask or a subtask is running. (See the communications region extension, displacement 18, for the PIK 
in an asynchronous processing supervisor.) 

First byte - always zero. 

Second byte - contains the key of the program that was last enabled for interrupts, or the partition identifier in 
an AP supervisor. 





Task 






PIK (PID) Value 




*AII Bound 






X*00* 




BG 






X'10' 




*F2 






X'20* 




*F1 






X'30' 




Attn Rtn 






X'40' 




Quiesce I/O 






X'50' 




Supervisor 






X'60' 




*These tasks do 
Logical end of main 


not 
sto 


ex 

rag 


st in a non - MPS s 


48 


e address. 



Figure 9. Supervisor Communications Region (Part 2 of 5) 
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Key to Communications Region Displacements: 



52 



Machine Configuration Byte (Values set at supervisor generation time.) 



BitO: 



5: 



1 = Storage protect feature 

= No storage protect feature 

1 = Decimal feature 

= No decimal feature 

1 = Floating-point feature 

= No floating-point feature 

1 = Physical transient overlap option 

= No physical transient overlap option 

1 = Timer feature 

= No timer feature 

1 - Channel switching device 

= No channel switching device 

1 = Burst mode on multiplex channel support 

= No burst mode on multiplex channel support 
Reserved 



E 



System Configuration Byte 



BitO 
1 
2 
3. 
4 
5 
6 
7: 



1 = DDMMYYJJ 

= MMDDYYJJ 

1 = Multiprogramming environment 

= Batch job environment 

1 = DASD file-protect supported 

= No file-protect support for DASD 

1 = DASD SYSIN - SYSOUT 

= No DASD SYSIN - SYSOUT 

1 = Teleprocessing 

= No teleprocessing 

1 = Batch job in foreground 

= No BJF 

1 = Asynchronous processing 

= No AP 

1 = Track Hold 

= No Track Hold 



(Set at generation time by STDJC) 



54 



This byte contains the standard language translator I/O options (set by the STDJC macro). 



it 

1 
2 
3; 
4 
5 
6 
7: 



DECK option 
LIST option 
LISTX option 
SYM option 
XREF option 
ERRS option 
CHARSET option 
Reserved 



= yes, output object modules on SYSPCH 

= yes, output source module listings and diagnostics on SYSLST 

= yes, output hexadecimal object module listings on SYSLST (compilers only) 

= yes, output symbol tables on SYSLST/SYSPCH 

= yes, output symbolic cross reference list on SYSLST 

= yes, output diagnostics on SYSLST (compilers only) 

= 48, input on SYSIPT is 48 or 60 character set 



H 



This byte contains the standard supervisor options for abnormal EOJ and control statement display, and the indicator 
for the presence of the ASCII-EBCDIC and EBCDIC-ASCII translation tables. 



BitO 
V 
2: 
3: 
4-6 
7: 



Always on 
DUMP option 
Reserved 
LOG option 
Reserved 
ASCII option 



1 = yes, dump registers and storage on SYSLST 
1 = yes, list all control statements on SYSLST 
1 = yes, ASCII supported 



Figure 9. Supervisor Communications Region (Part 3 of 5) 
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Key to Communications Region Displacement: 



H 



H 



58 



H 



Job control byte 

Bit 0: 1 = Job Accounting 

Interface (JA) not supported 

= Job Accounting 

Interface (JA) is supported 
1: 1 = Return to caller on LIOCS disk open failure 

= Do not return to caller on LIOCS disk open failure 
2: 1 = Job control input from SYSRDR 

= Job control input from SYSLOG 
3: 1 = Job control output on SYSLOG 

= Job control output not on SYSLOG 
4: 1 = Cancel job 

= Do not cancel job 
5: 1 = Pause at end-of-job step 

= No pause at end-of-job step 
6: 1 = SYSLOG ?s not a 1052 

0.= SYSLOG is a 1052 
7: 1 = SYSLOG is assigned to the same device as SYSLST 

= SYSLOG is not assigned to the same device as SYSLST 

Linkage control byte 

Bit 0: 1 = SYSLNK open for output 

= SYSLN K not open for output 
1 : 1 = $ or FG program phase deleted, renamed, or cataloged (flag bit for $MAINEOJ) 
2: 1 = Allow EXEC 

= Suppress EXEC 
3: 1 = Catalog linkage editor output 

= Do not catalog linkage editor output 
4: 1 = Supervisor has been updated 

= Supervisor has not been updated 
5: 1 = Executing in AUTOTEST mode 

= Not executing in AUTOTEST mode 
6: 1 = Reallocate or condense in progress 
7: 1 = Fetch $MAINEOJ at end of job to update system directory 

= Do not fetch $MAINEOJ at end of job for update 

Language processor control byte. This is a set of switches used to specify nonstandard language translator options. 
The switches within the byte are controlled by job control OPTION statements and when set to 1 , override standard 
options. The format of this byte is identical to the stnadard option byte (displacement 54) with one exception: 
Bit 7 in this byte is used to indicate to LIOCS that the rewind and unload option has been specified. 

Job duration indicator byte 

Bit 0: 1 = Within a job condition 

= Outside a job condition 

1 : 1 = Dump on an abnormal end-of-job condition 

= No dump on abnormal EOJ 

2: 1 = Pause at EOJ step ) „ . A n . _ , , ^ 

n - ki i. c/^ } Set by Attention Routine for Job Control 

= No pause at EOJ f 7 

3: 1 = Job control output on SYSLST 

= Output not on SYSLST 
4: 1 = Job is being run out of sequence with a temporary assignment for SYSRDR 

= Conditions for 1 setting not met 
5: 1 = PCIL is being condensed 

= PCI L is not being condensed 
6: Reserved 
7: 1 = Batch command just issued 

= Condition for 1 setting did not occur 



Figure 9. Supervisor Communications Region (Part 4 of 5) 
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Key to Communications Region Displacements: 



Binary disk address of the volume label area (label cylinder). 



H 

I 62 I ► I 76 J As illustrated (Figures for information blocks, I/O tables, and pointers 

•"— ' begin at Figure 7 which refers to more detailed Figures). 

78 Set to the value nn specified in the LINES = nn parameter of the STDJC macro. 

79 The format of the system date contained within this field is determined by the IPL program from information supplied 
in the date convention byte (displacement 53). Bytes 85-87 contain the day count. 

Bytes reserved for use by LIOCS. Transient dump programs insert a key to indicate to the LIOCS end-of-volume 
routine, $$BCMT07, that it was called by a B-transient. 

Address of the first part of the program information block (PIB) table. (See Figures 16, and 17). 

ID number of the last checkpoint. Temporary indicator of file protected DASD. Used at IPL time, when 
DASDFP is specified. 

I 94 I Length of the LUBID queue (in bytes). This equals the number of channel queue entries. It can also be used to 
access the REQID, LUBDSP, and TKREQID queues: (See Figure 18.) 



90 



H 



H 



96 Address of disk I/O position data. This is the starting address of the disk information block (DIB) table (See Figure 12). 



98 I Address of the beginning of the error recovery block. The error recovery block contains addresses of error recovery 

exits, error recovery queue information that can be used by physical transients routines, and defines storage for the 
error queue entries (See Figure 13). 



[100 [—► |104| As illustrated (See Figure 14). 
1106 I Key of the program (BG, F2, or Fl) that has timer support. 

As illustrated (See Figure 18). 



108 



110 



112 



124 



126 



128 



132 



134 



135 



136 



Logical Transient Key (LTK) contains the same value as the PIK (PID) (Displacement 46) when the logical transient is 
requested. When the transient area is not in use, LTK is equal to zero. The SVC 2 routine sets the LTK. The 
SVC 11 routine resets the LTK. 

Supervisor constants: 

DOLLARBO (4 bytes) = C'$$BO' 

SSKADR (5 bytes) = XL5'0' 

LTAREA (3 bytes) = Adcon of LTSVPT, logical transient save pointer 

Address of second part of program information block (PIB) table (See Figure 15). 

Address of PDTABB, table of DTF addresses for MICR support (See Figure 11). 

Address of QTAM vector table (IJLQTTAD). 

Address of background communications region. 

Option Indicator Byte 

Bit 0: 1 = MCRR indicated for OBR writer 

= No MCRR indicated for OBR writer 
1: 1 = EU interface active 

= EU interface not active 
2: 1 = TP request 

= No TP request 
3: 1 = Supervisor support tor only 9-track tape 

0= Supervisor does not support 9-track tape exclusively 
4-7: Reserved 

System Configuration Byte 2 

BitO: 1 = PCI L supported 

0= PCI L not supported 
1 -7: Reserved 

Pointer to communications region extension (See Figure 10). 



Figure 9. Supervisor Communications Region (Part 5 of 5) 
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BGXTNSN (See Note ) 



(Hexadecimal 
Displacement) 

(Decimal 

Displacement) 


4 
4 


8 
8 


OC 
12 


10 
16 


12 
18 


14 
20 


18 
24 


1C 
28 


20 
32 


CE Table 
Address 


Track Hold 
Table Address 
(THTABAD) 


Difference 
Between 1 st 
and 2nd Part 
of PIB Table 
(PIBDIFF) 


AB Termin- 
ation Table 
Address -8 
(ABPTR) 


ID of 

Task 

Owning 

LTA 

(LID) 


ID of 
Task 
Running 
(PIK) 


Task Re- 
quester ID 
Table Address 
(TKIDPTR) 


Address 
Used by 
QTAM 
(MVCFLD) 


SDR Table 

Address 

(SDRTABLE) 


TEBV 
Table 
Address 
(TEBVTAB) 


XXXX 


XXXX 


XXXX 


XXXX 


XX 


XX 


XXXX 


XXXX 


XXXX 


XXXX 



24 (Hexadecimal 


28 


2C 


30 


34 


38 


3C 


Displacement) 














36 (Decimal 


40 


44 


48 


52 


56 


60 


Displacement) 














OLTEP 


RMS 


ASCII-EBCDIC 




JAI Common 


JAI Partition 


&SYSPARM 


Linkage 


Linkage 


Translation 


(Reserved) 


Table Address 


Table Address 


Field 


Address 


Address 
(RASLINK) 


Table Address 




(ACCTCOMN) 


(ACCTxx) 


Address 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 



Key to displacements : 

| | CE Table Address. 

| 4 | Track Hold Table Address (THTABAD). 

I 8 J Difference between addresses of first part of PIB table and second part of PIB table (PIBDIFF). 

I 12 I Abnormal Termination Table Address (minus 8) (ABPTR). 

I 16 I Identification (LID) of the task owning the Logical Transient Area. Contains same value as PIK (displacement 18) when LTA is in use. 
Contains zero when LTA is not in use. 

I 18 I Program Interrupt Key (PIK) if asynchronous processing is supported. Value is equal to the displacement of the start of the PIB table 

' * to the PIB of the main task or subtask being selected (running). 

First byte - zero 

Second byte - contains the displacement into the PIB table for a maintask or a subtask. 
Maintask - PIK value is hex 10, 20, or 30. 
Subtask - PIK valve is hex 70, 80, 90, . . . F0. 



20 



24 



28 



32 



36 



Task Requester ID Table Address (TKIDPTR). 

MVCFLD address used by QTAM. 

Statistical Data Recorder Table Address (SDRTABLE). 

Tape Error Blocks by Volume Table Address (TEBVTAB). 

Pointer to OLTEP Linkage Addresses 
I 40 I RMS Linkage Area Address (RASLINK) 
| 44 [ ASCII-EBCDIC Translation Table Address. 
I 48 J (Reserved) 

JAI Common Table Address (ACCTCOMN) 

JAI Partition Table Address (ACCTxx; where xx = BG, F2, or Fl). 

Address of &SYSPARM Field. 



52 



56 



60 



Note : If communications regions are generated for the foreground partitions, the labels in those extensions will be F2XTNSN 
and F1XTNSN. The extensions, wherever used, are generated by the COMMNEX macro. Following the background 
extension (and immediately preceding the MCRR Linkage Table) is a six-byte area. The first four bytes are the address of 
the background save area (BGSAV), and the last two bytes are the value 4,096, used to restore base registers. 



Figure 10. Communications Region Extensions 
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The table of DTF addresses (PDTABB) contains six 8-byte entries; one for each external line of the 
direct control feature on the system . 

PDTABB 



Byte — 


— M) 


1 1 1 


2 3 


4 




5,6,7 


\ 


Nl 


1 1 
PDSTAT+1, 


1 
X'FE' 


n 


DTF address for MICR: 





Device on line 7 


8 


Nl 


PDSTAT+1, 


X'FD' 


IE 


Device on line 6 


16 


Nl 


PDSTAT+1, 


X'FB" 






Device on line 5 


24 


Nl 


PDSTAT+1, 


X'F7* 


£ o 




Device on line 4 


32 


Nl 


PDSTAT+1, 


X'EF' 


O u." 




Device on line 3 


40 


Nl 


PDSTAT+1, 


X'DF' 






Device on line 2 










1 • 





Background = 10 
Foreground 2 = 20 
Foreground 1 = 30 

# Bytes 0-3 --Contain an 'AND' instruction that is executed in main line coding to turn off the 
external line status after its detection. 

PDSTAT + 1 will contain one or more of the following interrupt codes: 



PSW Interrupt 


Interrupt Code 




External 


Code Bit 


(PSW Bits 26- 


31)* 


Interrupt Cause 


31 


nnnnnnnl 




External signal 7 


30 


nnnnnnln 




External signal 6 


29 


nnnnnlnn 




External signal 5 


28 


nnnnlnnn 




External signal 4 


27 


nnnlnnnn 




External signal 3 


26 


nnlnnnnn 




External signal 2 



• Byte 4 --Contains the flag of the partition containing the DTF. 

• Bytes 5-7 ' - - Contain the address of the DTF table . 

Table of pointers (PDTABA) to DTF addresses associated with the external interrupt line. The table is 
set up to handle the status in descending order from Bit 31 to Bit 26 of the external old PSW. 



PDTABA 



Byte 



8 
16 
24 
32 
40 
48 
56 



-►0 





1 1 

00 


1 1 

08 


1 

00 


1 

10 


^ 

00 


■\ 

08 


1 \ 

00 


18 




00 


08 


00 


10 


00 


08 


00 


20 




00 


08 


00 


10 


00 


08 


00 


18 




00 


08 


00 


10 


00 


08 


00 


28 




00 


08 


00 


10 


00 


08 


00 


18 




00 


08 


00 


10 


00 


08 


00 


20 




00 


08 


00 


10 


00 


08 


00 


18 




00 


08 


00 


10 


00 


08 


00 





*n = other external - interrupt conditions. 

Bytes 126 and 127 (X'7E'- '7F') of the communications region contain the address of these 
tables. Label PDTABB identifies the first byte of the first table. These tables are also used 
for optical reader/sorters. 

Figure 11. Tables for MICR DTF Addresses and Pointers 
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SYSLNK 
SYSIN 
SYSPCH 
SYSLST 



Number 
of Bytes 









Current Address 












End Address 




R 


U.L| 


L.L. 




R. 


C. 


Reserved 


B 


B 


C 


C 


H 


H 


R 


P 








iii i 
- This area not used for SYSLNK DIB 




I i 












B 


B 


C 


C 


H 


H 


R 


K 


D 


D 


B 


B 


C 


C 


H 


H 


X 


H 


H 


* 


XX 


XX 












































* 
















































* 


















*!■** 


-1-*- 


-H-*- 


-*-2 
































u 












* z 



KEY: Current Address: The next address to be used (for both input and output). 



End Address 

R 

U.L. 

L.L. 

R.C. 



P 
KDD 



The last address within the limits of the extent. 

: Maximum number of records per track. 

: Upper head limit 

: Lower head limit 

: Record Count - residual capacity for beginning of operator notification. This is set at system 
generation time with the SYSFIL parameter, or after IPL with the SET statement (RCLST and/or 
RCPCH operands). A warning message is issued by job control after end-of-job step when the 
minimum number of remaining records has been reached or exceeded during the previous job. 

: Starting cylinder of Private Core Image Library, if PCIL is assigned. 

: Key and data length for the symbolic device. 



KDD for SYSIN - X 1 000050' 
KDD for SYSPCH = X'000051 ' 
KDD for SYSLST = X'000079' 

Bytes 96 and 97 (X'60 1 - '61 ') of the communications region contain the address of the SYSLNK entry . 
Label DSKPOS identifies the first byte of the table . 

Figure 12. Disk Information Block (DIB) Table 
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Displacement 


Length 






from ERBLOC 


in Bytes 


Label 


Description 


in Decimal 








-2 


2 


ERRQ 


Address of first error queue entry in table (ERQUE). 





2 


ERBLOC 


Address of retry ERP exit (EXRTY). 


2 


2 




Address of ignore ERP exit (EXIGN). 


4 


2 




Address o f DISWHY (retry) ERP exit (EXWHY). 


6 


2 


YCHANQ 


Address of the channel queue table (CHANQ). 


8 


2 




Address of cancel ERP exit (EXCAN). 


10 


2 


FULQUE 


Address of last entry in error queue table. 


12 


2 


ERQPTR 


Address of last entry queued to table (initially ERQUE - 22). 


14 


2 


RIK 


Requestor I/O key (RIK). 


16 


2 




Address of cancel attention exit (ATNCNL). 


18 


2 




Address of attention dequeue exit (PUBDEQ). 


20 


2 


AT NEXT 


Address of attention exit (EXT02). 


22 


8 


SVC3NM 


A - transient phase name field ($$ANERRx, or $$ANERAx) where x = any 
alphabetic character. 


30 


5 x22 


ERQUE 


Five 22 bytes error queue entries. (See below) 








Error Queue Entry (22 bytes) 








csw 


Pub Address 


Flag 


Message 


Sense 


Disk Seek 










of Device 


Byte 


Number 


Data 


Address 










in Error 


(see below) 


* 


* 






Bytes 


0-7 




8-9 


10 


11 


12-17 


18-21 




XXXXXXXX 


XX 


X 


X 


XXXXXX 


XXXX 










Flag Byte 










Bit 


Designation 







Unused 








1 


Intervention required 










2 


Passbook*- * 










3 


Allow ignore 










4 


DASD in error 










5 


Allow retry 










6 


No CCB available 










7 


Unused 




* For infc 


xmation on he 


>w ERBLOC is used by physical transients, see Supervisor and Physical Transients, listed in 


the Pre 

- 


face. 





Bytes 98 and 99 (X'62 1 - X'63 1 ) of the communications region contain the address of the error block. Label ERBLOC identifies 
the first byte of the table. The address of the first error queue entry is at ERBLOC - 2. 

Figure 13. Error Recovery Block (ERBLOC) and Error Queue Entry 
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PC Option Table and OC Option Table: 



BG 
F2 
Fl 









A 






B 




a 


b 


a 


b 


a 


b 




ord 


w 


_ , _ 















No STXIT given: a=0 

STXIT issued: a = address of the user program check (operator communications) routine 

STXIT issued when the user routine is already in use: a = complement of user program check (Operator communications) routine 

address 



No STXIT given: b=0 

STXIT issued: address of the user save area 



IT Option Table: 



c d 



word 







-+«- 



- word - 



-H 







No TECB or STXIT issued: c = 

TECB issued: c = address of the timer event control block 

STXIT issued: c = address of the user interval timer routine 

STXIT issued when user routine is already in use: c = complement of the user interval time routine address 



No TECB or STXIT issued: d = 

TECB issued: d = complement of the TECB address 

STXIT issued: d = address of the user save area 



AB Option Table: 



BG 
F2 
Fl 









E 






F 




e 


f 


e 


f 


e 


f 


._.j 


, w 



















No STXIT given: e=0 

STXIT issued and rtnaddr parameter passed: e = address of entry point of user's abnormal termination routine. If AP (asynchronous 

processing) is supported, the maintask and subtasks may have the same or different AB routines. When a subtask is ATTACHed 
after a STXIT AB macro has been issued by the maintask, the subtask witt receive the AB routine address specified by the 
maintask only if the ATTACH macro for that subtask has the ABSAVE parameter specified . The subtask can override this by 
issuing its own STXIT AB macro. 



No STXIT given or no save area parameter passed: f = 

STXIT issued and save area parameter passed: f = address of a 72 - byte save area used by the supervisor to store the old PSW and 
general registers 0-15. 



Each table address (less 8 bytes) is found in the communications region at the byte locations specified below, 
the first byte of the corresponding table. 



The labels shown identify 



Table 

PC 
IT 

OC 
AB 



Bytes in COMREG Label 

100-101 (X*64' - '65') PCTAB 

102-103 (X'oo' - '67') ITTAB 

104-105 (X'68' - '69") OCTAB 

12-13 (X'OC - '0D») ABTAB 
of extension 



Figure 14. Option Tables 
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Byte 
Number 



10 



11 



12 



13 



14 



15 



16 

Byte 

Length 



All Bound 
PIB 



Reserved 



H'16' 
Priority of 
All Bound 

PIB 
(Lowest) 



Reserved 



H'O' 

All Bound 

PIB 

Displacement 



Reserved I 



Background 
PIB 



Address of 
BG Comm. 
Region 



System 
LUB Index 



Reserved 



Priority of 
BGPIB 

(Note 4) 



Address of Termination 
ECB, if any, or F'O' 



X'OOIQ' 

BGPIB 

Displacement 



■Bttflk 



FG2 
PIB 

(Note 1) 



Address of 

Area Comm. 

Region 

(Note 2) 



System 
LUB Index 



Priority of 
F2PIB 

(Note 4) 



Address of Termination 
ECB, if any, or F'O' 



X'0020' 

F2 PIB 

Displacement 



P|fe$ervedi 



FG1 
PIB 

(Note 1) 



Address of 

Area Comm. 

Region 

(Note 2) 



System 
LUB Index 



Reserved 



Priority of 
Fl PIB 

(Note 4) 



Address of Termination 
ECB, if any, or F'O' 



X'0030' 

Fl PIB 

Displacement 



Reserved 



Attention 
PIB ; 



Address of 
BG Comm. 



Reserved 



H'3' 

Priority of 

Attention 

PIB 



F'O' 



X'0040» 
Attention PIB 
Displacement 



Reserved 



Quiesce 
I/O PIB 



Reserved 



H'2' 

Priority of 

Quiesce 

I/O PIB 



F'O' 



X'0050' 
Quiesce PIB 
Displacement 



PSsSiiiil 



Supervisor 
PIB 



Reserved 



H'T 
Priority of 
Supervisor 

PIB 
(Highest) 



F'O' 



X'0060' 

Supervisor 

PIB 

Displacement 



-iiiiiiveii 



Sub task 
PIB | 

(Note 3) 



Address of 

Area Comm. 

Region 



System 
LUB Index 



Reserved 



Priority of 
Subtask 

(Note 4) 



ECB Address for 
Subtask, or F'O' 



PIB 

Displacement 
of Ma in task 



Reserved 



Note 1. Generated only if MPS is specified. 

Note 2.. Always background communications region except when MPS = BJF. 

Note 3. Total of nine subtasks generated, and only when AP is specified. 

Note 4. Will be filled in with halfword indicating the relative priority of task in the system (range H'4' to H'15', the lower the 
number the higher the priority). 

Bytes 124 and 125 (X'7C'-"7D') of the communications region contain, the address of the second part of the PIB table. Label 
PIB2AD identifies the first byte of the table. The second part of PIB table comes before the first part in storage allocation. 
Refer to Figure 1 . 

Figure 15. Second Part of Program Information Block (PIB) Table 
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PIB TABLE 



Byte 
Number 



10 



12 



13 



14 



15 



= 16 
Byte 
Length 



All 

Bound 

PIB 



Flag 
Byte 
See A 



Reserved 



SP Prefix 



Branch Instruction to the 
All Bound Routine 



Reserved 



Problem 
Program 
PIB 
(Note 1) 



Flag 
Byte 
See B 



Cancel 

Code 

(Fig. 2) 



SYSLOG ID 
(BG, F2, or Fl) 



NOP 
Instruct- 
ion 
(CR) 



Address of the 
Partition Save Area 



Number 

of Core 

Blocks 

(Note 2) 



Address of the Origin 
of the Partition 



PIB 
Assign 

Flag 
See D 



User 

LUB 

Index 



Number 

of 
Program 

LUBs 



Flag 
Byte 
SeeC 



Attention 
PIB 



Flag 
&yte 
See E 



Cancel 
Code 
(Fig. 2) 



SYSLOG ID 
(AR) 



Branch 
Code 
(BC) 



Active=Address of 
Save Area 



Inactive = Remainder of 
BC Instruction 



Switch 

Byte 
See F 



Logical Transient Bucket 
(contains save 
area address) 



X'07 1 
See D 



iReserved 



Address of 

the Logical 

Transient 



Quiesce 
PIB 



Flag 
Byte 
See A 



Cancel 
Code 
(Fig. 2) 



C/&' 



Branch Instruction to 
Quiesce I/O Routine 



Scratch 

Byte 
X'00' 



Channel PUB Table Index Values 



X'00' 



X'04' 



X'OO 



X'10 1 



X'14' 



X'18 



Supervisor 
PIB 



Flag 
Byte 
See A 



Cancel 
Code 
(Fig. 2) 



SP Prefix 



Branch Instruction to 
General Exit Routine 



Address of 
SYSRES PUB 



Length of Error 
Queue Entry 



Constants to Clear Bytes 
2-5 of CCB 



X'lF' 



X'05' 



X'00' 



X'00 1 



Subtask 
PIB forAP 
(Note 3) | 



Flag 
Byte 
See B 



Cancel 
Code 
(Fig. 2) 



SYSLOG ID 
(BG, F2, or Fl) 



NOP 
Instruc- 
tion 



Address of the 
Save Area 



Number 
of Core 
Blocks 
(Note 2) 



Address of the 
Origin of the 
Main Task 



PIB 
Assign 

Flag 
See D 



User 
LUB 
Index 



Number 

of 
LUBs 



Flag 
Byte 
See C 



{Background PIB 
Fore around 2 PIB 
Foreground 1 PIB 
When a batch-only environment is established at generation time, the All Bound and Foreground PIBs are excluded from the table, and only 
one (BG) problem program PIB is built. However, the X'20' bytes that F2 and Fl PIBs normally occupy (between PIBBG and PI BAR) are 
filled with 32 bytes of DIBs data. 

Note 2: Number is in multiples of 2K for F2 and Fl . BG is always 10K (X'OA 1 ). 

Note 3: Total of nine subtask PIBs are generated, and only when AP is specified at generation time. 

* See Figure 17 for flag byte expansions A, B, C, D, E,and F. 

Bytes 90 and 91 (X'5A' - '5B') of the communications region contain the address of the first part of the PIB Table. Label PIBTAB identifies the first 
byte of the table. 

Figure 16. First Part of Program Information Block (PIB) Table 
(See Figure 15 for Second Part) 
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A Supervi 
Bit 


sor, Quiesce, and ALL Bound PIB Flags: 


D 


PIB Assign Flag 


1 = Always one 




X'80' = SYSRES DASD file protect inhibited (allow write 


1-4 


= Always zero operation on SYSRES) 


5 


1 = Always one X'40' = Channel appendage exit allowed (BTAM) 


6 


1 = Active X'20' = Cancel in progress (used in terminator function) 




= Inactive X' 10' = Cancel control (set on a foreground cancel) 


7 


1 = Active X'08 1 = Hold-Release flag for foreground assignments 




= Inactive X'07" = Supervisor or Attention routine PIB assign flag setting 




X'04' = Background program PIB assign flag setting 


Note 


: If PTO = YES is specified, Bit 6 is a one in the X'02' = Foreground 1 program PIB assign flag setting 




Quiesce I/O PIB when attached by the super- X'01 ' = Foreground 2 program PIB assign flag setting 




visor. Otherwise it is always zero. i i 




E Attention PIB Flag 
Program PIB Flag (First Byte in PIB): ' ' 


B 


Problem 






Bit 0: 1 = Registers stored 


BitO 


1 = Registers stored = Registers not stored 




= Registers not stored 1-5 : = Always zero 


1-3 


= Always zero 6 : 1 = Attention routine active 


4 


1 = QTAM Wait active = Attention routine SVC 2-bound 




= QTAM Wait inactive 7 : 1 = Active 


5 


= Normal execution = SVC 7-bound 




1 = Program has seized the system 


6 


1 = Unbound X'80' indicates the attention routine is not present in the system. 




= SVC 2-bound (B-transient in progress) X'89' indicates the program is IDRA bound 


7 


1 = Unbound | | 




= SVC 7-bound (waiting for an I/O interrupt) F Attention PIB Switch Byte 


X'80 


1 indicates the program is not present in the system 


X'87 


1 indicates the program is PTO bound Bit 0-2: Reserved 


X*89 


indicates the program is IDRA bound 3: 1 = PTAFTCH (Fetch $$ANERRY, Z, or 0) Switch ON 


1 1 


= PTAFTCH (Fetch $$ANERRY, Z, or 0) Switch OFF 


C Problem 


Program PIB Flag (Last Byte in PIB): 4: 1 = Detach Logical Attention Routine ($$BATTNA) 


L_J 


Switch ON 


Bit 


: 1 = Batched Job in Foreground = Detach Logical Attention Routine ($$BATTNA) 




= No BJF Switch OFF 


1 


: Cancel in LTA and Device not Assigned 5: 1 = Physical Attention Recall Switch ON 


2 


: 1 =/& on SYSIN if DASD = Physical Attention Recall Switch OFF 




= No /& on SYSIN 6:1= Attention Request Switch ON 


3-4 


: Reserved = Attention Request Switch OFF 


5 


: 1 = Task is cancelled 7: 1 = External Interrupt Request Switch ON 




= Task not cancelling = External Interrupt Request Switch OFF 


6 


: 1 = Subtask (s) attached 




= No subtasks attached 


7 


: 1 = In AB Routine 




= Not in AB Routine 



Figure 17. PIB Flag Expansions 
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FLPTR 



CHANQ 



LUBID 



REQID 



LUBDSP 



TKREQID 



PUB 
Byte 2 







B 










D 




F 




G 




H 






L 






Chain 
Byte 


















Chain 
Byte 


















Chain 
Byte 
















The length of 
the queue is 
determined at 
supervisor gen- 
eration time. 


Chain 
Byte 
















Chain 
Byte 




















Chain 
Byte 


















Chain 
Byte 


















Chain 
Byte 


















Chain 
Byte 











Byte 



KEY 



S 



C 

D 



m 



The free list pointer contains a displacement index to a free list entry within the channel queue. 
The free list is a group of entries that function in essentially the same manner as a device queue. 
When the free list pointer contains a hexadecimal FF, it indicates that no more free list entries 
are available. 

The first byte of the channel queue entry (chain byte) contains a pointer (displacement index) 
to the next channel queue entry for that device. A hexadecimal FF indicates the last channel 
queue entry for that device. New requests on a given device are queued at the end of a given 
device queue. 

CCB address for the specified device. 

A pointer (displacement index) to the entire LUB table identifying the logical unit making the 
I/O request. This is doubled to get the actual displacement into the full LUB table. 

Contains a pointer (displacement index) to the first channel queue entry for a specific device 
(Figure 19). 

Contains a code identifying the program making the I/O request. The one- byte entry is called 
a RID (Requestor Identification). The RID indicates what program the CCB belongs to. The 
RID is in the form X'nk'. 



n = user -storage protection key (supervisor = 0, BG = 1, F2 = 2, Fl = 3). 
k = for all user requests and all supervisor CCBs, where n = 0. 
k = 1 for supervisor CCBs to SYSLOG that bypass ID prefix. 
k = 2 for a fetch CCB. 
nk = FF for any unused channel queue entries. 

Contains X'FF' if the LUB is nonsystem class, or contains the displacement index within the 
partition LUB if it is a system class LUB. 

I H I Contains X'FF', or the displacement into the PIB table for the PIB of the task requesting I/O. 

Bytes 108- 109 (X'6C- '6D') of the communications region contain the address of the LUBID Table. 
Label LUBIDTAB identifies the first byte of the table. The addresses of the other tables are not at fixed 
locations. They can be found in the program listing cross-reference by using the labels CHANQ, 
REQIDTAB, LUBDSPTB, and TSKIDTAB. 

Figure 18. CHANQ, LUBID, REQID f LUBDSP, and TKREQID Tables 
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PUBTAB 



PUBEND 
STOPPR 





PUB 


- TABLE 








Channel 
PUBs - 








< 


f 






Channel 1 






PUBs 










i 


r 




Channel 7 






PUBs 






1 


' 




FF 


PUB- 
delimi 


ta 
ter 


Die 





Channel 



Unit 



Channel Queue Pointer 



TEB& TEBV Pointer or Error Count 



Device Type 



Device Characteristic Code or SAB Pointer 



Channel Scheduler Flags 



Job Control Flags 



BYTE 6 - 

Bit 

1 

2 
3 
4 
5 
6 

7: 



= Device busy 

= Switch-able device 

= EOJ for SYSRDR or SYSIPT 

= I/O error queued for recovery 

= Operator intervention required 

= Device end posting required 

= Burst device on MPX 

= 7 -track tape unit 



BYTE 7 
Bit 



0-4: standard MODE assignment for 7 -track tape 
(all ones if not tape, all zeros if device is 
down). 
5: device is assigned to a background job 
6: device is assigned to a foreground 1 job 
7: device is assigned to a foreground 2 job 



BYTE0- Channel number. (Hex 0-7, FF=NULL) 

BYTE 1 - I/O device unit number. (HEX 1F = 1052, 
HEX 80 = magnetic tape unit . . . ) 

BYTE 2 - HEX 0, 1,2, ... points to the first 
channel queue entry for this device. 

BYTE 3 - If device is a magnetic tape unit* and TEBs 
and/or TEBVs are specified, this byte is a 
TEB/TEBV pointer (HEX 1, 2, 3 ... ) 

If device is a magnetic tape unit* but 
neither TEBs nor TEBVs are specified, 
this byte is an error counter. 

If device is not a magnetic tape unit*, this 
byte is an error counter. 

BYTE 4 - See Figure 26 for device type codes. 

BYTE 5 - SS of the MODE = parameter in the DVCGEN 
macro for tape unit. (See Figure 27. ) 

For DASD with seek separation, this byte is 
used as the SAB pointer. With track hold but 
not seek separation supported, this byte con- 
tains a pointer to the Track Hold Table entry 
or X'FF' (with both SKSEP and TRKHLD specified, 
the track hold pointer is found in the SAB entry). 

For MICR type devices, this byte indicates the 
external interrupt line is in use. 

NOTE: A null is generated for each device to be supported by the supervisor. 

Standard physical unit assignments are made to the PUB table at supervisor generation time. PUBs are ordered by 
channel and priority within a channel. 

Bytes 64 and 65 (X'40' - '41 ') of the communications region contain the address of the PUB table entry. 
Label PUNTAB identifies the first byte of the table. 

*2400-series or 3420 Magnetic Tape Units or 2495 Tape Cartridge Reader (TEBs); 2400-series or 3420 Magnetic Tape Units 
only (TEBVs) 



Figure 19. Physical Unit Block (PUB) Table 
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JIB Table 


JIB 


1 


JIB 


2 


JIB 


3 


JIB 


4 


JIB 


5 


JIB 


6 






Number (length of JIB table) 
determined at supervisor generation 



Note: Two JIBs are required for a 2321 extent; one for lower 
limit and one for upper limit. The lower limit defining 
JIB must be chained to the upper limit defining JIB. 
Byte 1 of this type JIB contains the subcell number 
times 10 plus the strip number in binary. 






1 


2 


3 



Type of Entry 



Stored standard 
assignment 



Alternate 
assignment 



2311 Extent 



2321 Extent 



LUB entry of stored 
standard assignment 
(PUB and JIB pointers) 



PUB pointer 
of alternate 
assignment 



X'00' 



C L C L C H C H © 



Bi Bi Ci C 



L D L ^L ^L vgv 
H B H C H C H ^ 



Only when file - protect on DASD 

Lower Cylinder 
Upper Cylinder 

Cell or combined sub -cell and strip 



Flag Type 


Bit 


Meaning if Bit = 1 


Contents 





Stored standard assignment 


1 


Alternate assignment 


2 


2311 Extent 


3 


2321 Extent 


4 


Standard assignment for 
DASD extent 


Ownership 


5 


Background 


6 


Foreground 1 


7 


Foreground 2 



Chain Byte. 

Contains the displacement 
index of the next JIB. 
A hexadecimal 'FF' defines 
the end of the chain. 



Bytes 68-69 (X'44' - '45') of the communications region contain the address of 
the JIB table entry. Label JIBTAB identifies the first byte of the table. 



Figure 20. Job Information Block (JIB) Table 
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TEB Table 



TEBTAB 



TEB 1 


TEB 2 


|;;:;v.;\»3 


TEB 4 


TEB 5 


TEB 6 






1 


2 


3 


4 


5 



Byte 

- Error recovery retry count. 

1 - Permanent read data check error count. 

2 - Number of times the read data check error routine is entered. 

3 - Number of times the write data check error routine is entered. 

4 - Write skip (erase gap) count. 

5 - Noise record count. 



One TEB is generated for each 2400 series or 3420 magnetic tape or 2495 Tape Cartridge Reader unit if the FOPT macro contains 

the TEB = n parameter. Job control resets each TEB at normal or abnormal End -of- Job. An unused TEB contains HEX'FFOOOOOOOOOO*. 

A TEB is referenced from byte 3 of a magnetic tape unit PUB. 

Bytes 70 and 71 (X'46 1 - '47') of the communications region contain the address of the TEB table entry. Label TEBTAB identifies the 
first byte of the table. 

Figure 21. Tape Error Block (TEB) Table 
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r t 

| Decimal | 


I i 


j Displace- 




| Byte 




j ment 


Label 


| Length 


Description 


|. X 


-X x 


| (TEBV 


Status Block portion of TEBV Table, see Note 1) 


1 o 


TEBLEN 


1 1 


Length of TEBV Error Block (for each Error Block 
generated) 


1 1 


TSBLEN 


| 1 


Length of TEBV Status Block {4, 6, or 22 bytes, 
see Note 1) 


1 2 


EVARTH 


| 1 


EVA Read Error Threshold 


1 3 


EVAWTH 


1 1 


EVA Write Error Threshold 


1 4 


TEBSTAT 


1 1 


DASD ESTV File Status 


| 5 


TEBUDC 


| 1 


ESTVFLE Label Update Counter 


1 6 


TEBDEV 


1 1 


Data Set Device Code 


1 7 


UPXTNT 


1 4 


Disk Address of Upper Extent of Data Set (cchh) 


1 11 


TEBRPT 


| 1 


Number of Records per Track 


1 12 


NXTESR 


| 5 


Disk Address of Next Available Space for Data 
Record (cchhr) 


1 17 


ESTVLABL 


| 5 


Pointer to ESTVFLE Label in VTOC (cchhr) 


| (TEBV 


Error Block portion of TEBV Table, see Note 2) 


| 22 


TEBV 


| 1 


Status Indicator (giving status of posting and 
writing error conditions) 


| 23 




| 1 


Usage Indicator (X , 00 , =TEBV Error Block in use, 
I x f FF ,= Error Block generated but not serving 
any tape unit) 


| 24 




| 1 


Retry Counter 


| 25 




| 1 


Permanent Read Errors 


1 26 




| 1 


Temporary Read Errors 


1 27 




| 1 


Temporary Write Errors 


| 28 




| 1 


| Erase Gaps 


| 29 




| 1 


Noise Blocks 


1 30 




1 1 


| Permanent Write Errors 


1 31 




1 1 


| Cleaner Actions 


| 32 




1 2 


Number of Start I/Os 


1 34 




1 6 


Volume Serial Number (volume ID) 


| 40 (r< 


speat bytes 22-39 


:or each TEBV Error Block) 



Figure 22. TEBV Table Showing Status Block and Error Blocks (Part 1 of 2) 
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Note 1 : The TEBV (Tape Error Block by Volume) 
Table is composed of one Status Block and (n) Error 
Blocks, and is addressed symbolically by label 
TEBVTAB. 



Supervisor generation options in the F0PT macro 
determine the size of the TEBV status Block at 
generation time: 



• When EVA is chosen without ESTV, the TEBV 
Status Block is four bytes long (bytes 0-3) f 
followed by TEBV Error Blocks, so that bytes 
4-21 are omitted* 



• When ESTV output is to SYSLOG, the TEBV Status 
Block is six bytes long (bytes 0-5) , followed 
by TEBV Error Blocks, so that bytes 6-21 are 
omitted • 



When ESTV output is to DASD, the TEBV Status 
Block is 22 bytes long (bytes 0-21, such as 
shown in this Figure) , followed by TEBV Error 
Blocks . 



Note 2 : The number of TEBV Error Blocks generated 
corresponds to the (n) parameter of the FOPT macro 
for TEB, TEBV, or EVA options. A TEBV Error Block 
always contains 18 bytes, as shown in bytes 22-39 
of this Figure. Therefore, the TEBV Table is 
composed of one TEBV Status Block (with its byte 
length dependent on supervisor generation options, 
as described in Note 1 ) , followed by (n) number of 
18-byte TEBV Error Blocks. 



Figure 22. TEBV Table Showing Status Block and Error Blocks 
(Part 2 of 2) 
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CBTAB 



^1 



CBPREX 




Points at next 
available buffer 



7 

CBCCW 


8 20 
CBCCB 


21 23 


24 103 
CBDATA 




















— *"W* «~ 













CBTABND 



The Buffer Table is a 104 multiplied-by-n byte area of main storage, where n is 1 - 50. Each buffer entry in the 
table is 104 bytes. CBNEXT is a half-word constant that points at the next available buffer entry. CBNEXT is 
initialized with the address of CBTAB and is incremented by 104 every time a buffer is used, so that it points at 
the next entry. When its value becomes greater than CBTABND, CBNEXT is reinitialized with the value CBTAB. 

CBINUSE is a one-byte counter that contains the number of entries currently in use. It is incremented whenever 
a buffer is used and is decremented at dequeue time when the buffer becomes free. 

Each buffer entry contains the following fields: 



Displacement: 



CCW moved from requestor core. The data address portion of the CCW is modified to 
point at the data portion of the buffer. 

CCB moved from requestor core. The CCW address in the CCB is modified to point at 
the CCW in the buffer. 

Prefix. SYSLOG ID moved from problem program PIB. The prefix is printed with the 
data to identify BG, Fl, or F2 partitions. 

Data moved from requestor core. 



Figure 23. Console Buffering (CBTAB) Table and Work Areas 
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> 



*1 

to 

■P 





O 

OJ 



G 
ft 



** 



c 



H3 



Number in 
Class List 
(NICL) 



LUB Table 



First 

Class List 
(FICL) 




BG 

System 

LUBs 

BG 

Programmer 

LUBs 


T. 


F2 

System 
LUBs 

F2 

Programmer 

LUBs 


F1 

System 
LUBs 

F1 

Programmer 

LUBs 



SYS 



BG 



F2 



f- F1 



LUB Table for any Partition 

iSYSRDR 
SYSIPT 
SYSPCH 
SYSLST 
© SYSLOG 
SYSLNK 
SYSRES 
SYSSLB 
SYSRLB 
® SYSUSE 
SYSREC 
SYS000 
SYS001 
SYS002 
SYS003 
SYS004 

(J) SYS221 

© SYSCLB F1 



























































'.V /'■ 






























































F1 






F2 






BG 







00000000- Points to first PUB 
000 0001- Points to second PUB 
00000010- Points to third PUB 



1 1 1 1 1 1 1 - Ignore 

1 1 1 1 1 1 1 1 - Null Pointer, the LUB is Unassigned 
When a logical unit is assigned, the system inserts a 
pointer to the PUB for the physical device specified. 



;Formatof Any LUBj 



ByteO 



PUB Pointer 



Bytel 



JIB Pointer 



JIB Index (Multiply by 4 = displacement into JIB Table) or X'FF' = Null 
Pointer, no JIB for this LUB 

A LUB has a JIB pointer when: 

1. /The logical unit is temporarily assigned, 

2. The logical unit assignment is alternate (ALT). 

3. A DASD file (except a system I/O file on disk) is opened. 



Bytes 76 and 77 (X'4C - '4D') of the communications region contain the address of the LUB table entry. 
Label LUBTAB identifies the first byte of the table. 



® When in Single Program Initiation mode (Foreground 1 or 2): Must be unit record device and can be referenced by the program. 

® When in Single Program Initiation mode (Foreground 1 or 2): Can be referenced by the program. 

® SYSUSE may be called SYSCTL in error recovery messages. 

® The maximum number of programmer logical units in the system is 222 if MPS = BJF, or 244 if MPS = YES or NO. 

© The SYSCLB (Private Core Image Library) LUB entry functions the same as other LUB entries, but is not part of the LUB Table. To locate the SYSCLB LUB in supervisor perform the 
following steps: 

1. Divide the PIK by 8. 

2. Subtract the result in step 1 from the address of the PIB extension block. 

3. If option AP = YES, the result of step 2 is the location of SYSCLB LUB. If option AP = NO, add 16 (for the all-bound PIBX) to the result of step 2. 



to 
to 



"T 



X »FF' 
or 
Pointer 

I- 

X 
L 



CCB 
Address 



XXX 



Address of 
Held Track 
CBBCCHH) 






XXXXXX 



Key 
of 
Task 



Flag 
and 
Counter 



~L 



Byte 



10 



11 



Byte 



Explanation 



X f FF' or pointer to next available 
entry in the table. This is also 
placed in the PUB table , byte 5. 



1-3 



Address of CCB associated with the 
task requesting the hold. 



4-9 



I— 



Disk address of the track being held 
(in the form BBCCHH) . 



10 



H- 



Key of the task owning the track. 



-H 



11 | Bit on indicates a task is waiting 
for this track. 

1-3 Unused 

4-7 Counter of number of holds on 
the track. 



Figure 25. Track Hold (TKHDTAB) Table 
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Card Code 


Actual Device 


Dev.Type 
XW 


Device Type 


2400T9 


9 -track 2400 Series Magnetic Tape 
Units 


50 


Magnetic Tape Units 


9 -track 3420 Magnetic Tape Units 


2400T7 


7 - track 2400 Series Magnetic Tape 
Units 


7 - track 3420 Magnetic Tape Units 


2495TC 


2495 Tape Cartridge Reader 


51 


Tape Cartridge Reader 


1442N1 


1442N1 Card Read Punch 


30 


Card Readers - Punches 


2520B1 


2520B1 Card Read Punch 


31 


2501 


2501 Card Reader 


10 


Card Readers 


2540R 


2540 Card Reader 


11 


2540 P 


2540 Card Punch 


21 


Card Punches 


2520B2 


2520B2 Card Punch 


20 


1442N2 


1442N2 Card Punch 


22 


252QB3 


2520B3 Card Punch 


20 


1403 


1403 Printer 


40 


Printers 


1403U 


1403 Printer with UCS Feature 


42 


1404 


1404 Printer 


40 


1443 


1443 Printer 


41 


1445 


1445 Printer 


41 


1050A 


1052 / 3210 / or 3215 Printer- Keyboard 


00 


UNSP 


Unsupported Device 


FF 


Unsupported. No burst mode on mulitplexor channel 


UNSPB 


Unsupported Device 


FF 


Unsupported with burst mode on multiplexor channel 


2311 


231 1 Disk Storage Drive 


60 


DASD 


2314 


2314 Direct Access Storage Facility 


62 


2319 Disk Storage Facility 


2321 


2321 Data Cell Drive 


61 


1412** 


1412 Magnetic Character Reader 


75 


MICR - Magnetic Ink Character Recognition Devices 
and Optical Reader/Sorters 


1419** 


1419 Magnetic Character Reader 


72 


1255 Magnetic Character Reader 


1259 Magnetic Character Reader 


1419P** 


1419 Dual Address Adapter Pri- 
mary Control Unit 


73 


1419S** 


1419 Dual Address Adapter Se- 
condary Control Unit 


74 


2701* 


2701 Data Adapter Unit 


DO 


Teleprocessing lines 

A = SAD0 command when enabling the line 
B = SAD1 command when enabling the line 
C = SAD2 command when enabling the line 
D = SAD3 command when enabling the line 


2702 1 B 


2702 Transmission Control Unit 


Dl 


2703 


2703 Transmission Control 


D2 


2671 


2671 Paper Tape Reader 


70 


Paper Tape Reader 


1285 


1285 Optical Reader 


76 


Optical Readers 


1287 


1287 Optical Reader 


77 


1288 


1288 Optical Page Reader 


1017 


1 01 7 Paper Tape Reader with 
2826 Control Unit Model 1 


78 


Paper Tape Reader 


1018 


1018 Paper Tape Punch with 
2826 Control Unit Model 1 


79 


Paper Tape Punch 


2260 


2260 or 2265 Display Station 


CO 


Display Station 


7770 


7770 Audio Response Unit 


D3 


Audio Response Units 


7772 


7772 Audio Response Unit 


D4 


1017TP 


1017 Paper Tape Reader with 2826 
Control Unit Model 2 


D5 


Paper Tape Reader 


1018TP 


1018 Paper Tape Punch with 2826 
Control Unit Model 2 


D6 


Paper Tape Punch 


Note: The codes used in the DVCGEN macros are the same codes used in 1 PL statements. 

* For other teleprocessing devices, see IBM System/360, DOS BTAM and QTAM PLMs, GY30-5001 and 
GY30-5002. 
** This device type code is also used for the 1270/1275 optical reader/sorters. 



Figure 26. Device Type Codes 
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T 1 



Density 








Convert 








* 


(Byte per Inch) 




Parity 




Feature 


j Translate 




SS Code 




~+- 




-+- 






— + 




-+- 




200 




odd 






on 




off 




10 


200 




odd 






off 




off 




30 


200 




odd 






off 




on 




38 


200 




even 






off 




off 




20 


200 


— +- 


even 


-+- 




off 


— + 


on 


-+- 


28 


556 




odd 






on 




off 




50 


556 




odd 






off 




off 




70 


556 




odd 






off 




on 




78 


556 




even 






off 




off 




60 


556 


— +- 


even 


-+- 




off 


— + 


on 


-+- 


68 


800 




odd 






on 




off 




90 


800 




odd 






off 




off 




B0 


800 




odd 






off 




off 




B8 


800 




even 






off 




off 




A0 


800 




even 






off 




on 




A8 


800 




dual densi 


ty 


nine- 


track 






C8 


1600 




dual density 


nine- 


track 






CO 








-X- 






X - 









♦Refer to PUB table, byte 5 (Figure 19). 



Figure 27. Density Data 
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FLPTR 



CHANQ 



LUBID 



REQID 




'FF' 


CCB address 


'02' 


CCB address 


'FF' 


CCB address 


'05' 




'FF' 


CCB address 


■06' 




'FF' 




'09' 


CCB address 


'FF 1 


CCB address 


'FF' 


CCB address 



(CHANQ 
pointer) 

Figure 28. 



(Cha in 
field) 



(LUBNo.) (RID) 



Example of the CHANQ Table 
Operation 



Priority Table 


Sample 
Status 


PIB Tables 


MVCFLD 


X'84- 


Supervisor task PIB 


X'60' 


X'84' 


Quiesce I/O task PIB 


X'50' 


X'80' 


Attention task PIB 


X'40' 


X'83' 


t Foreground 1 program PIB 


X'30' 


X'82' 


t Foreground 2 program PIB 


X'20' 


X'83' 


Background program PIB 


X'10' 


X'85' 


+ AII bound PIB 


X'00' 



1 . Test status flags 
in order specified 
by priority table. 

2. Select 1st PIB for 
which the TRT 

life function is not 
X'00'. 



PIB Flags During Task Selection 


Table of Selection Criteria 


Meaning of Status 


Flag 


Label 


TRT Function 


Detached 


X»80' 


TRTMSK 


X'00' 


Waiting for B-transient area 


X'81' 


TRTLTK 


X'OO'orX'OS' (Note 1) 


Waiting for CCB or TECB 


X'82' 




X'00' 


Ready to run 


X'83' 


TRTRUN 


XWorXW (Note 2) 


Inactive SUPVR or Quiesce I/O 


X'84* 




X'00' 


Active SUPVR, Quiesce 
I/O, or All bound 


X'85' 




X'05' 



Note 1: X'00 1 when the B-transient area is in use as indicated by the 
Logical Transient Key (LTK). 

Note 2: X'00' when a task has seized the system. That task's status 
flag will equal X'84' or X'85'. 

t These PIBs are generated for MPS option only. 



Figure 29. Task Selection Procedure 
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Displacement 


Label 


0-15 


(ACCTCOMN) 
ACCTSVRG 


16-17 


ACCTSVRX 


18-19 


ACCTSVRE 


20-23 


ACCTPCNT 


24 


ACCTSAID 


25 


ACCTFAID 


26 


ACCTRAID 


27 


ACCTSWCH 



54-55 



28-31 


ACCTIME 


32-33 


ACCTRESC 


34-35 


ACCTUSEP 


36-39 


ACCTBLES 


40-43 




44-47 




48-53 


ACCTSEAS 



ACCTUSEL 



Description 



Temporary register save area. 



Save area for remainder of overhead counter times distributed by partition on exit. 

Save area for remainder of all-bound counter times distributed by partition on entry. 

Count of partitions using JAI . 

Owner of physical transient area*. 

Interrupted program*. 

Active program*. 

Accounting switches: if bit = 1 , true; if bit = 0, not true. 



bit - cancel accounting 
bit 1 - no active partitions 
bit 2 - catalog in process 
bit 3 - alternate label area 



bit 4 - IPL indicator 
bit 5 - $JOBACCT in Fl 
bit 6 - $JOBACCT in F2 
bit 7 - $JOBACCT in BG 



Start time of current accounting interval, in complement format. 

Reserved. 

Address of user save area (ACCTUSER). 

Address of BG Job Accounting Table. 

Address of F2 Job Accounting Table if BJF; otherwise zero. 

Address of Fl Job Accounting Table if BJF; otherwise zero. 

Seize blocks; serve as overlapped Event Control Blocks. 



TS Bit 


(reserved) 


Wait 
Bit 1 


PIK 1 


Wait 
Bit 2 


PIK 2 




1st FCR 




FTTi. 








'"Wl 


^ 


zna 


u^D 





TS Bit: 

X'00' = no $JOBACCT 
running 

*H X'FF' = $JOBACCT active 



Length of user save area, set with 4th operand of global AG39. 



*Note: X'00' = all bound, X'10' = BG, X'20 1 = F2, X'30' = Fl , X'40' = overhead and FG if SPI. 



I Figure 30. Job Accounting Interface Common Table (ACCTCOMN) 
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Displacement 


Label 


Description 


0-3 


ACCTWK1* 
(ACCTABLE)* 


Work area used in SIO update. 




4-7 


ACCTWK2 


Work area used with ACCTWK1 in start/stop time routine 




8-11 


ACCTSVPT 


Job card pointer; address of job card field following jobname. 




12 


ACCTPART 


ID of partition in charge (partition switch name). 




13 


ACCTRES2 


Reserved . 




14-15 


ACCTLEN 


Length of SIO area = 6n+ 1 , where n = number of devices for this partition in SYSGEN option JA = (nl , n2, 


n3). 


16-21 


ACCTLOAD 


Label area instruction; moves JAI label area address to OPEN/CLOSE transients. 




22-23 


ACCTRES3 


Reserved . 




24-27 


ACCTLADD 


Address of alternate label area. 




28-31 


ACCTCPUT 


Counter for CPU time elapsed in a jobstep, counted in 300ths of a second. 




32-35 


ACCTOVHT 


Counter for overhead time; time not charged to any partition. 




36-39 


ACCTBNDT 


Counter for all -bound time; system wait state time divided between running partitions. 




40-47 


ACCTSVJN 


Save area for job name during simulated EOJ . 








JOB ACCOUNTING TABLE (user's portion of Partition Table) 


48-55 


ACCTJBNM 


Job name; taken from job card. 




56-71 


ACCTUSRS 


User information; 16 bytes from Job card. 




72-73 


ACCTPTID 


Partition ID; 'BG', 'F2", or 'FT in EBCDIC format. 




74 


ACCTCNCL 


Cancel code; see Cancel Codes and Messages (Figure 32). 




75 


ACCTYPER 


Type of record: 'S' = job step, 'L 1 = last step of job. 




76-83 


ACCTDATE 


Date in format specified at SYSGEN (MM/DD/YY or DD/MM/YY). 




84-87 


ACCTSTRT 


Start time of job, in packed decimal (OHHMMSSF; F = sign). 




88-91 


ACCTSTOP 


Stop time of job, in same format as ACCTSTRT 




92-95 


ACCTRES 


Reserved . 




96-103 


ACCTEXEC 


Phase name; taken from execute card. 




104-107 


ACCTHICR 


High core address of active program phase, from COMREG. 




108-111 


ACCTIMES 


CPU time elapsed in a job step; counted in 300ths of a second. 




112-115 




Overhead time; elapsed time not charged to any partition, in 300ths of a second. 




116-119 




All -bound time; system wait state time divided between running partitions, in 300ths of a second. 




120 


ACCTSIOS 


SIO tables: 6 bytes for each device specified by SYSGEN options, as follows: 2 bytes for device address (Ocuu), 
4 bytes for count of SIOs in current jobstep. 






Overflow byte: normally X'20', but is X'30 1 if more devices are used within a partition than specified by 
SYSGEN options. 






its o 


wn JAI Partition 


'mbolically addresses the JAI Partition Tables with labels as shown. Each partition in which JAI is supported 
Table, labeled ACCTBG, ACCTF2, ACCTF1, for active partitions BG, F2, and Fl respectively. 


has 



Figure 31. Job Accounting Interface Partition Table (ACCTxx*) 
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4 


8 


12 


16 


20 




24 


28 


32 


LDOOSLOT 


LD01SLOT 


LD02SLOT 


LD03SLOT 


LD04SLOT 


LD05SLOT 


LD06SLOT 


LD07SLOT 


LD08SLOT 


($$RAST00) 


($$RAST01) 


($$RAST02) 


($$RAST03) 


($$RAST04) 


($$RAST05) 


($$RAST06) 


($$RAST07) 


($$RAST08) 


0© 


© 


© 


© 


© 


© 




© 


© 


© 


36 


40 


44 


48 


50 


52 




54 


56 


57 


LD09SLOT 


LD10SLOT 


LD11SLOT 


RASCCB 


RASTIB 










RASCCBF 





($$RAST09) 


($$RAST10) 


($$RAST1 1 ) 


Residual 
Count 


Transmission 
information 


CCW Status 
bytes 


SYSRES 
LUB 


RASCCB 
indicator 


RAS Fetch CCWs 
address 


© 


© 


© 
















60 


64 


72 


80 


88 


96 




103 


104 


106 





RASCCWS 


RASRCG 


RASTIC 


RASREAD 


RASEEK 


RTAOWN 


RASRETR 


MCPIK 


CCW stored 
address 


RAS seek 
CCW 


RAS search 
CCW 


TIC CCW 


CCW to read 
module into 
RTA 


Seek 
Address 




Index into 
load list for 
RTA owner 


RTA return 
address after 
I/O operation 


PIKof task 
interrupted 
by machine check 


108 


no 


112 


113 


114 


116 




118 


120 


122 


RASIOA 


RASFCHA 


RTA ID 


ERPID 


ERPIBA 


RASDEQA 


XCANRASA 


CCENTADR 


RASRES 


I/O routine 
address 


RTA fetch 

routine 

address 


RTA I/O 
request ID 


Return load 
index for 
WTOR request 


ERPIB 
queue 
address 


CCB DEQ 

routine 

address 


RAS cancel 

routine 

address 


Channel 
Check entry 
address 


SYSRES 
I/O address 


124 


126 


128 




130 




132 


140 


144 


148 


RASREC 


RAS LOG 


RASEMIO; 


\ 


RASCQC 


)SP 


SUPRETR 


SUPBB 


SUPBC 


SUPBD 


SYSREC 
I/O address 


SYSLOG 

device 

address 


Emergency 

SIO 

address 




CCB loo 

routine 

address 


k-up 


Save area 
for registers 
9 and 10 


Base address 
(X'1000 1 ) for 
supervisor 


Base address 
(X'2000') for 
supervisor 


Base address 

(X'3000') 

supervisor 


152 (HIR - Hardware Instruction Retry accumulators) 






164(ECCMAIN - / 


Vlain storage error accumulators) 


152 


154 


156 




160 




164 


166 


168 


172 


HIRACNT 


HIR1CNT 


HIR1TME 




HIRLTM 


E 


ECMACNT 


ECMLCNT 


ECM1 TME 


ECMLTME 


HIR 

accumulated 

count 


Count 

threshold 

value 


Time of day 
first error 
of group 


for 


Time thr 
in clock 


eshold 
units 


Accumulated 
ECC count for 
main storage 


Count 

threshold 

value 


Time of day 
for first error 
of count 


Time 

threshold in 
clock units 


176 


178 


180 


181 


182 


183 




184 


185 


. 186 


RESTARTA 


RESTART P 


MCMODE 


BUFDEL 


RASMSG1 


RASMSG 


2 


EOR 


EOT 


CCDEVT 


Disk 

restart 

address 


PUB address 
of unit to 
be restarted 


Mode 
status for 
machine 
checks 


Count of 

buffers 

deleted 


Message 
byte 1 

© 


Message 
byte 2 

© 




Records/track 
for SYSREC 


Tracks/cylinder 
for SYSREC 


X'00' 



| Figure 32. RMS Monitor Table (RASTAB) (Part 1 of 2) 
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Notes: 







© 



Areas labeled LDxxSLOT (bytes - 
12 entries are formatted as follows: 



47) are called the Load List and each of the 



BYTE 




Cylinder - Head - Record 
(disk address of R-transient in the 
core image directory) , 



LD00SLOT flag byte: 





Bit 

1 


Flag 

X'80' 

X'40' 




2 


X'20 




3 


X'10' 




4 


X'08' 




5 


X'04 




6 


X'02' 




7 


X'OT 


© 


LD01 SLOT flag 


byte: 




Bit 



Flag 
X'80 1 




1 


X'40 r 




2-7 




© 


LDlOSLOTflag byte: 




Bit 


1 


Flag 

X'80' 

X'40' 




2-7 




© 


LDxxSLOT flag byte: 




Bit 



Flag 
X'80' 




1-7 




© 


RASMSG1: 






Bit 
0-3 


Flag 




4 


X'08' 




5 


X'04' 




6 


X'02' 




7 


X'OT 


© 


RASMSG2: 






Bit 



Flag 
X'80' 




1 


X'40 1 




2 


X'20' 




3 


X'10' 




4 


X'08' 




5 


X'04' 




6 


X'02' 




7 


X'OT 


'igur 


e 32. RMS 


Monii 



Description 

$$RAST00 module activated. 

Machine check analysis to be performed. 

Channel check analysis to be performed. 

Active I/O units are valid. 

System termination situation. 

Reserved . 

Reserved . 

Attempt made to record in system termination situation. 



Description 

$$RAST01 module activated. 

Build and record channel check records. 

Reserved . 



Description 

$$RAST10 module activated. 

Refetch calling module after issuing message. 

Reserved . 



Description 

$$RASTxx module activated; that is, 

Reserved. 



Description 

Reserved . 

Timer damage. 

ECC in Quiet mode. 

Reserved . 

MCAR repair failed. 



Description 

Check damage. 

Last track on SYSREC. 

C40 buffer pages deleted. 

Soft machine checks disabled. 

ECC MCI disabled. 

SYSREC full-run EREP. 

Error on SYSREC at BBCCHHR. 

Soft machine check. 



should be fetched. 



(Part 2 of 2) 
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APPENDIX D: LABEL INFORMATION FORMAT ON SYSRES 



Job Control Statements or Operator Initiation Commands 




// TPLAB 



// VOL 



> or 




Label 

Information 

Cylinder 




// TLBL 



// TPLAB 



fcyte 


Filename 


Auxiliary 
Byte 


File 
ID 


File 

Serial 

Number 


Volume 

Sequence 

Number 


File 

Sequence 

Number 


Generation 
Number 


Version 
Number 


Creation 
Date 


Expiranon 
Date 


Security 
Number 


Block 
Count 


System 
Code 


Flag 
Bytes 


1 


7 


1 


17 


6 


4 


4 


4 


2 


6 


6 


1 


6 


13 


2 


o t 


1 


8 


9 


26 


32 


36 


40 


44 


46 


52 


58 


59 


65 


78 



L l 



Byte Count 

Displacement in Main Storage 



Shaded areas are not processed by DOS Logical IOCS. 
Figure 33. Format of SYSRES Tape Label Information 
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1 


2 


3 


■i 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


Field 1 


o 
o 










































^^^^B 


Hi 
_c 

1— 


Filename 




File ID' 






File 
Serial 


d 

Z 




a> 






System 


Volume 
Serial 




o' 

Z 


Extent 
Lower 


Extent 
Upper 


"o 
"o 







^Another ^^ 
p Extent if ||i 
pDAor ISFMS^ 


Z 

LU 
t— 

X 

LU 
J, 




o 

I 

CO 


n 




Number 


o - 
a> 
to 

0) 

E 


o 

c 


o 
Q 

c 
o 

o 


o 
> 


0) 

no 
O 
U 


Code 


Number 


a 
o_ 

X 

1— 

z 


cr 
a> 

CO 

t— 
Z 


Limit 


Limit 


co"£ 
— -o 


u 
a> 

i 


a. 


CO 

-J 
Q 




> 




E 
o 

u_ 






o 

0) 

U 


*a_ 

X 

LU 


(A 


a. 
O 






LU 
1— 

X 

LU 


LU 

»- 

X 

LU 






11 


CO 

£1 


CN 
CO 


^^^^B 


1 


7 


1 


44 | 


1 


6 


2 


3 


3 


2 


1 


13 


6 


1 


1 


4 


4 


2 


1 


1 


Bytes 


o 


— 


00 


o» |j 


00 
lO 




o 


CN 

NO 


m 
>o 


00 


o 


R 


XT 
00 


© 
O^ 


<> 


CM 

a* 


o 
o» 


o 
o 


CN 
O 


CO 

o 


Displacement 



4. 



10. 



Field 


Name 




Description 


1. 


DLBL-EXTENT 


SD 








BitO 


1 = Next extent on a new pack. 






Bit 1 


1 = Last extent. 






Bit 2 


1 = Bypass extent. 






Bit 3 


1 = New volume on same unit. 






Bit 4 


1 = Extent limits omitted. 






Bit 5 


1 = Extent converted to DASD 
address. 






Bit 6 


1 = No EXTENT/XTENT card. 






Bit 7 


1 = Unused. 






DA or ISFMS 






Numl 


ser of extents. 


2. 


Filename 






3. 


DA/IS Switch 


BitsC 


-3: Unused. 



File ID 



5. 


Format ID 


6. 


File Serial No. 


7. 


Volume Seq. No. 


8. 


Creation Date 


9. 


Expiration Date 



Reserved 



Open Code 



Bit 4: 1 = Extent limits omitted. 
Bit 5: 1 = Extent converted to DASD 

address. 
Bit 6 & 7: Unused. 

File identifier including generation 
and version numbers. If field is 
missing on DLBL card, Filename 
padded with blanks is inserted. 

Numeric 1 is inserted. 

Volume serial number from first extent. 

Always initialized to X'OOOT. 

Initialized with 3 bytes of X'OO'. 

If date is in the form YYDDD, it is 
converted to YDD. If date is in re- 
tention period form, 1 to 4 characters, 
the field is padded with binary zeros. 

The retention period, if specified is 
converted to a 2-byte number and 
inserted in this field. 

DLBL type: 

S = Sequential 

D= Direct Access 

C or E = Indexed sequential 

File Management System where: 

C = Load create function 

E = Load extend function 



Field Name 

12. System Code 

13. Volume Serial No. 

14. Extent Type 



15. Extent Seq. No. 



16. Extent Lower 
& and Upper 

17. Limits 



18. Logical (Symbolic) 
Unit Address 



19. 2321 Lower Cell 
2321 Upper Cell 



Description 

Initialized to contain DOS/360 VER 3. 
This field is not processed by DOS. 

Volume serial number for extent. 



Same 
X'OO" 

X'OT 



X'02' 
X'04' 

X'40' 
X'8n' 



codes as in Format - 1 label: 

= Next three fields do not indicate 

any extent. 
= Prime data area (ISFMS) or 

consecutive area, etc., (that is the 

extent containing the user's data 

records). 
= Overflow area of an ISFMS file. 
= Cylinder index or master index of an 

ISFMS file. 
= User label track area. 
= Shared cylinder indicator, where 

n = 1 , 2, or 4. 



Number of extent as determined by the extent 
card sequence. 

Before the OPEN, DLBL/EXTENT 

information is in the relative track form of 

HHNNT followed by three bytes of binary 

zeros. 

HH = Relative (to 0) start address in tracks. 

NN = Number of tracks. 

T = or upper track number for split 
cylinder in SD files. 
Following an OPEN on DLBL/EXTENT cards, 
or whenever DLAB/XTENT cards are used, 
the extent lower and upper limits are each 
in the CCHH format. 

This 2-byte field identifies the logical unit 

with the same code as that used in a CCB. 

The first byte identifies the unit class: 

X'OO' = System Logical Unit 

X'OT = Programmer Logical Unit 

The second byte identifies the logical unit 

within its class. 

Thus X'0003' denotes SYSLST and X'0103' 
denotes SYS003. 

2321 extent lower and upper cell 
limit. This 2-byte field contains 
zeros for 2311/2314/2319 disk. 



Note: For Sequential Disk files, a complete 104-byte block is repeated for each new EXTENT. 

For Direct Access and ISFMS files, only fields 13 through 18 are repeated for each EXTENT. 

Figure 34. Format of SYSRES DASD Label Information 
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APPENDIX E: PROGRAM KEY DEFINITIONS 



PID (Partition Identifier) 



The PID is a half word long, consisting of a 
zero value in the high-order byte and the 
key value in the low-order byte. The key 
value is the key of the partition that was 
last enabled for interrupts. Key values 
are X'OO', X'lO', x' 20' , . . .X' 60' for All 
Bound, BG, F2, Fl, Attention, Quiesce I/O 
and Supervisor, respectively. 



PID is defined in an AP (asynchronous 
processing) supervisor only and is found at 
byte-dispiacement 46 in the communications 
region. (This half word is named PIK in a 
non-AP supervisor. See PIK below.) 



PIK (Program Interrupt Key) 



The PIK is a half word long, consisting of a 
zero value in the high-order byte and the 
key value in the low-order byte. The key 
value is the key of the program that was 
last enabled for interrupts. 



Task 


PIK Value 


All Bound* 


X'OO 1 


EG 


X^IO 1 


F2* 


X^O 1 


Fl* 


X^O' 


AR 


X'40 1 


Quiesce I/O 


X'50' 


Supervisor 


X^O' 


Subtask** 


X^O' - 



- X*F0 f 

♦Multiprogramming generation option only. 

♦♦Asynchronous processing generation option 
only. A total of nine subtask PIBs is 
generated, thus the displacement hex 
70-F0 indicates the maximum range. 

The PIK is set by task selection within 
the general exit routine. The fetch 
routine sets the PIK to X'60 f , because it 
enables itself for interrupts and because 
it gets control directly from the SVC 
interrupt routines. Like other completely 
disabled supervisor routines, the SVC 
interrupt routines do not change the PIK 
from the value it had when the interrupt 
occurred that transferred control. 



When an interrupt occurs, the value of 
the PIK indicates to the supervisor which 
program (task) was interrupted. It can 
also be used by transient programs and 
problem programs to determine if they are 
running as BG, Fl, or F2, or, in the AP 
supervisor, if the last interrupted task 
was a maintask or a subtask. 



The value of the PIK equals the 
displacement from the beginning of the PIB 
table to the PIB entry for the program 
(task). For BG, F2, and Fl tasks, this 
value equals the storage protect key 
multiplied by sixteen. 



LID (Logical Transient Identification) 



The LID contains the same value as the PIK 
when the logical transient area is in use 
(i.e., the LID identifies ownership of the 
logical transient area). When this 
transient area is free, the half word LID 
contains zeros. The SVC 2 routine sets the 
LID, and the SVC 11 routine resets it to 
zero. LID is defined only in an AP 
supervisor. See also LTK, PIK, and PID. 



LTK (Logical Transient Key) 



In a non-AP supervisor, PIK is found at 
displacement 46 in the communications 
region. In an AP supervisor PIK is found 
at displacement 18 in the communication 
region extension. (Also see PID.) 



The LTK has the same value as the PIK when 
the logical transient area is in use. When 
the transient area is free, the LTK equals 
zero. The SVC 2 routine sets the LTK, and 
the SVC 11 routine resets it to zero. 



RID (Requestor Identification) 



See Figure 18, REQID (Item F) . 
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RIK (Requestor I/O Key) 



When a supervisor routine (fetch or 
physical transient) issues an SVC or SVC 
15 f the routine puts the value to be used 
in the CAW storage protect key into the 
high-order digit of the second byte of the 
RIK half word. When this value is zero, the 
low order digit has these special meanings: 



Physical transients put a X'Ol' into the 
RIK when they are doing a SYS LOG I/O. The 
PIK for physical transients has a value of 
X'06' f therefore the channel scheduler 
would type "SP" (supervisor ID) as the 
SYSLOG ID. The physical transients put the 
ID of the program referred to by the 
message into the message. 



RIK Meaning 

X^l' This is a SYSLOG I/O request. 

The channel scheduler is not to 
type a SYSLOG ID prefix. 

X f 02' This has been a fetch I/O 

request. This special code is 
required by ERP to recognize 
fetch requests. 

Fetch always sets a X'02" in the RIK. 
ERP transients put the key of the program 
requiring ERP into the RIK f when the ERP is 
a retry of a user EXCP and the ERP 
transient requires control to return to 
itself. 



FIK (Fetch I/O Key) 



Used by the fetch to validate the phase 
name address and load address. FIK has the 
following values: 

SVC Contents 

1 Key of the problem program 
requestor. 

2 

3 

4 if the transient issued the SVC 4. 
Key of the problem program if not a 
transient. 
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APPENDIX F: EXPLANATION OF FLOWCHART SYMBOLS 



DESCRIPTION 



**** 

* * 

* 1 * 

* * 
**** 



*****A1 ********** 



A GROUP OF PROGRAM INSTRUCTIONS 
THAT PERFORM A PROCESSING 
FUNCTION OF THE PROGRAM. THE 
LABEL, IF ANY, IS SHOWN ABOVE 
THE BLOCK. 



***** * 

* * * BB-D4, INITL1 

* * BC-B2, 0PENX4 
* * BL-J1, ENDPRN 



*B2 
IF ANY ADDITIONAL EXPLANATION 
IS REQUIRED, ITS LOCATION ON 
THE CHART IS IDENTIFIED BY AN 
ASTERISK AND THE BLOCK ID. 



************ 



* SUBROUTINE * 

* * 

* * 
***************** 



DESCRIPTION OR TITLE OF A ROUTINE 
THAT IS DETAILED ON ANOTHER 
FLOWCHART. THE STARTING LABEL OF 
THE ROUTINE AND THE FLOWCHART ID 
APPEAR ABOVE THE STRIPE. 



*****C 5 ********** 
*ERRTN BG* 
*_*_*_*_*_*_*_*_* 

.X* ERRGR ROUTINE * 

* * 

* * 
***************** 



**D1******* 

* * 

* * 
* PREPARATION * 

* * 

* * 
*********** 



AN INSTRUCTION, OR GROUP OF 
INSTRUCTIONS, THAT CHANGES 
PORTIONS OF A ROUTINE OR 
INITIALIZES A ROUTINE FOR 
GIVEN CONDITIONS. 



*****04********** 



***************** 



**** 

* * 

* 1 * 

* * 
**** 



***** El ********** 

* * * * 

* *PREDEFINED * * 

* * PROCESS * * 

* * * * 

* * * * 
***************** 



A GROUP OF OPERATIONS NOT 
DETAILED IN THE FLOWCHARTS 
IN THIS MANUAL, SUCH AS 
USER'S ROUTINES. 



*****£ 5********** 

* * * * 

* * * * 
.X* USER ROUTINE* * 

* * * * 

* * * * 
***************** 



****Fl *********** 
* INPUT/OUTPUT * 



***************** 



ANY FUNCTION OF AN INPUT/OUTPUT 
DEVICE OR PROGRAM, USUALLY 
BRANCHING TO AN I/O ROUTINE TO 
PERFORM THE FUNCTION STATED IN 
THE BLOCK. 



**P5******* 



*********** 



POINTS WhERE THE PROGRAM 
BRANCHES TO ALTERNATE PROCESSING, 
BASED UPON VARIABLE CONDITIONS 
SUCH AS PROGRAM SWITCH SETTINGS 
AND TEST RESULTS. 



*YES ***** 
*BL * 
* Al* 
* * 



****H1 ********* 



************ 



****H4********* 

* * 

* END OF JOB * 

* * 
*************** 



**** 

* * 

* 1 * 

* * 
**** 



ON-PAGE CONNECTOR. AN ENTRY 
FROM, OR AN EXIT TO, ANOTHER 
FUNCTION ON THE SAME FLOWCHART. 
THE NUMBER IN THE CONNECTOR 
IDENTIFIES THE CORRESPONDING 
ENTRY OR EXIT ON THE CHART. 



***** 
*BD * 
* D4* 



OFF-PAGE CONNECTOR. AN ENTRY FROM, 
OR AN EXIT TO, A GIVEN POINT ON 
ANOTHER FLOWCHART. THE CHARACTERS 
IN THE CONNECTOR IDENTIFY THE 
CHART AND BLOCK. THE CORRESPONDING 
LABEL, IF ANY, IS PLACED OUTSIDE 
THE CONNECTOR. FOR MULTIPLE ENTRIES 
AND EXITS, AN ASTERISK APPEARS IN 
THE CONNECTOR AND THE CHARACTERS 
ARE LISTEO NEARBY. 
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APPENDIX G: MICROFICHE CROSS-REFERENCE INDEX 



The index gives the relationship of 
core-image phase names, relocatable module 
names , microfiche labels, and microfiche 
identification numbers. 

An asterisk indicates the microfiche 
label. If the microfiche label differs 
from both the phase and the module name, it 
is so indicated in parentheses. 

When a phase or module takes up more 
than one microfiche card, the 
identification number of only the first 
card is shown. 

For the complete microfiche 
cross-reference index, see Introduction to 
DOS Logic , listed in the Preface . 



Core Image 


Relocatable 




Phase Name 


Module Name 


Card ID 


$$BATTNA* 


None 


CTL. 044.00 


$$BATTNB 


None 


CTL. 044.00 


($$BATTNA) 






$$BATTNC 


None 


CTL. 044.00 


($$BATTNA) 






$$BATTND 


None 


CTL. 044.00 


($$BATTNA) 






$$BATTNE 


None 


CTL. 044.00 


($$BATTNA) 






$$BATTNF 


None 


CTL. 044.00 


($$BATTNA) 






$$BATTNG 


None 


CTL. 044.00 


($$BATTNA) 






$$BATTNH 


None 


CTL. 044.00 


($$BATTNA) 






$$BATTNI* 


None 


CTL. 045.00 


$$BATTNJ* 


None 


CTL. 046.00 


$$BATTNK* 


None 


CTL. 047.00 


$$BATTNL* 


None 


CTL. 048.00 


$$BATTNM* 


None 


CTL. 049. 00 



$$BATTNN* 


None 


$$BATTNO* 


None 


$$BATTNP* 


None 


$$BATTNQ* 


None 


$$BATTNR* 


None 


$$BATTNS* 


None 


$$BCCHHR* 


None 


$$BDUMP* 


None 


$$BDUMP* 


IJBDUMPS 


$$BDUMP* 


IJBDUMPT 


$$BDUMPB* 


IJBDMPBS 


$$BDUMPB* 


IJBDMPBT 


$$BDUMPD* 


IJBDMPDS 


$$BDUMPD* 


IJBDMPDT 


$$BDUMPF* 


IJBDMPFS 


$$BEOJ* 


None 


$$BEOJl* 


None 


$$BEOJ2* 


None 


$$BEOJ2A* 


None 


$$BEOJ3* 


None 


$$BEOJ4* 


None 


$$BEOJ5* 


None 


$$BESTVA* 


None 


$$BESTVB* 


None 


$$BESTVC* 


None 


$$BESTVD* 


None 


$$BESTVE* 


None 


$$BESTVF* 


None 


$$BILSVC* 


None 


$$BPCHK* 


None 


$$BPDUMP* 


IJBPDMPS 


$$BPDUMP* 


IJBPDMPT 


$$BPDUM1* 


IJBPDUMS 


$$BPSW* 


None 


$$BSDRUP* 


None 


$$BSYSWR* 


None 


$$BTERM* 


None 



CTL. 050. 00 
CTL. 051. 00 
CTL. 052. 00 
CTL. 052. 50 
CTL. 052.60 
CTL. 052.70 
CTL. 052. 80 



CTL. 
CTL, 
CTL. 
CTL. 
CTL. 
CTL. 
CTL. 
CTL. 
CTL 
CTL, 
CTL 
CTL, 
CTL, 
CTL 
CTL. 



072.00 
072.00 
072.01 
073.00 
073.01 
074.00 
074.01 
075.00 
076.00 
077.00 
078.00 
079.00 
080.00 
,081.00 
,082.00 



CTL. 085. 00 
CTL. 086. 00 
CTL. 087. 00 
CTL. 088. 00 
CTL. 089. 00 
CTL. 089. 50 



CTL 
CTL 
CTL 
CTL 
CTL 
CTL 
CTL 
CTL 
CTL 



,090.00 
,172.00 
,173.00 
,173.01 
,174.00 
,175.00 
,185.00 
,186.00 
,187.00 
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GLOSSARY 



For a more complete list of data processing 
terms, refer to IBM Data Processing 
Techniques , A Data Processing Glossary , 
GC20-1699. 



ASCII (American National Standard Code for 
Information Interchange) ; A 128-character, 
7-bit code. The high-order bit in the 
System/ 3 60 8-bit environment is zero. 

CCH (Channel Check Handler) : A feature 
that assesses System/370 channel errors to 
determine if the system can continue 
operations . 

channel inboard error : An error that 
occurs between one I/O device and the 
central processing unit. 

core image library ; A SYSRES area (or a 
device of the same type as SYSRES) that 
stores programs processed by the linkage 
editor. Each program is in a form that can 
be executed in main storage. 

core wrap mode : The method of operation 
that records the events of a trace in main 
storage. It is the default process when no 
output device for the trace has been 
specified. The contents can be displayed 
by either a dump program or manually from 
the console. 

data set security : A feature that provides 
protection for disk files. A data secured 
file cannot be accidentally accessed by a 
problem program. 

Disk Operating System : A disk resident 
system that provides capabilities for 16K 
and larger IBM System/360 and System/370 
systems . 

DOS Volume Statistics : A facility that 
monitors and records the number of 
temporary read and write errors on 
currently accessed tape volumes. This 
facility has two options. Error Statistics 
by Tape Volume (ESTV) and Error Volume 
Analysis (EVA) . 

EREP (Environmental Recording, Editing,, and 
Printing) : A program that processes the 
data contained on the system recorder file. 

ESTV (Error Statistics by Tape Volume) : 
One of the two options of the DOS Volume 
Statistics. With ESTV support, the system 
collects data on tape errors by volume for 
any tape volumes used by the system. 



EVA (Error Volume Analysis) : One of the 
two options of the DOS Volume Statistics. 
With this option, the system issues a 
message to the operator when a number of 
temporary read or write errors (specified 
by the user at system generation time) has 
been exceeded on a currently accessed tape 
volume. 

fetch: 

1. To bring a program phase into main 
storage from a core image library for 
immediate execution. 

2. The routine that retrieves requested 
phases and loads them into main storage. 

3. The name of a macro instruction 
(FETCH) used to transfer control to the 
system loader. 

4. To transfer control to the system 
loader. 

F/L Trace (Fetch/Load Trace) : A program 
that records information about phases and 
transients as they are called from a core 
image library. 

GSVC Trace (Generalized Supervisor Calls 
Trace) : A program that records SVC 
interrupts as they occur. All or a 
selected group of SVCs can be traced. 

IDRA (Independent Directory Read- in Area) : 
A resident area, created by a supervisor 
option, into which the system reads core 
image library directories for fetch and 
load operations. Using IDRA frees the 
physical transient area to perform error 
recovery procedures. 

I/O (Input /Out put) error logging : The 
process of recording OBR and SDR records on 
the system recorder file. 

I/O Trace (Input/Output Trace) : A program 
that records I/O device activity for all or 
a selected group of I/O devices. 

job accounting interface : A function that 
accumulates accounting information for each 
job step to: charge usage of the system, 
help plan new applications, and help 
supervise system operation more 
efficiently. 

MCAR (Machine Check Analysis and 
Recording) : A feature that records 
System/370 machine check interrupt error 
information on the system recorder file and 
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then attempts to recover from the 
interrupt. 

MCI (Machine Check Interrupt) : The 
interrupt that occurs if the central 
processing unit fails to operate. 

MCRR (Machine Check Recording and 
Recovery) : The recording of pertinent data 
on the system recorder file after either a 
machine check interrupt or a channel 
inboard error occurred on System/360 Model 
30, Model 40 , or Model 50. 

object module : One or more control 
sections in relocatable, nonexecutable 
form. An object module must be processed 
by the linkage editor before it can be 
executed in the system. 

OBR (Outboard Recorder) : A feature that 
records pertinent data on the system 
recorder file when an unrecoverable I/O 
error occurs. 

overlay : A program segment (phase) that is 
loaded into main storage. It replaces all 
or part of a previously retrieved section. 

PCIL (Private Core Image Library) : A file 
referenced in the same manner and for the 
same purposes as the system core image 
library, but distinct from the system core 
image library. PCIL increases available 
core image library space to enable 
compiling, linkage editing, and executing 
in the foreground partition, when a private 
core image library is assigned to that 
foreground partition. 

PDAID (Problem Determination Aids) : 
Programs that trace a specified event when 
it occurs during the operation of a 



program. The traces provided are QTAM 
Trace, I/O Trace, F/L Trace, and GSVC 
Trace. 



phase : The smallest complete unit that can 
be referenced in a core image library. 
Each program overlay is a complete phase. 
If the program has no overlays, the program 
itself is a complete phase. 



private library : A relocatable, core 
image, or source statement library that is 
separate and distinct from the system 
library. 



problem determination : A procedure or 
process (provided by I3M) that the user can 
follow after an error message to determine 
the cause of that error. (See PDAID) 

QTAM Trace : A routine that records certain 
supervisor and I/O activities on tape or in 
main storage. 

RMS (Recovery Management Support) : A 
feature for System/370 that consists of the 
MCAR (Machine Check Analysis and Recording) 
and CCH (Channel Check Handler) functions. 
RMS gathers information about System/370 
hardware reliability and attempts certain 
error recovery operations. RMS is a part 
of the entire reliability, availability, 
and serviceability support for System/370. 

SDR (Statistical Data Recorder) : A feature 
that records the cumulative error status of 
an I/O device on the system recorder file. 

system recorder file : The file that is 
used to record hardware reliability data. 
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INDEX 



Indexes to systems reference library 
manuals are consolidated in the publication 
DOS Master Index / GC24-5063. For 
additional information about any subject 
listed below, refer to other publications 
listed for the same subject in the Master 
Index. 



A (physical) transients 11 
AB (abnormal termination) table 212 
abnormal termination (AB) table 212 
ALLOC statement processor 

detail chart 52 

general chart 28 

text 1 1 
ASCII 238 
ASSGN statement processor 

detail chart 60 

general chart 29 
attention interrupts 

(also see statement processors) 

logical 1 1 

physical 1 1 
attention routines 

logical transient 11 

physical transient 11 



B (logical) transients 11 
BATCH statement processor 
detail chart 56 
general chart 2 8 
text 1 1 



cancel codes and messages 15 
CANCEL statement processor 

detail chart 46 

general chart 27 

text 1 1 
CBF (console buffering) table 222 
CCH (channel check handler) 238 
channel inboard error 238 
channel queue (CHANQ) table 202,216 
channel queue table operation 227 
CHANQ (channel queue) table 202,216 
CHANQ table operation 227 
charts 

detail (see phases or statement 
processors) 

general (see phases or statement 
processors) 
communications region 

additional 208,212 

extensions 208,212 
console buffering (CBF) table 222 
core image library 238 
core wrap mode 238 



data set security 

definition 238 

general chart 30 
density data 226 
detail charts (see phases or statement 

processors) 
device type codes 225 

DIB (disk information block) table 210 
disk information block (DIB) table 210 
Disk Operating System 238 

program flow 10 
DLAB statement processor 

detail chart 82 

general chart 30 
DLBL statement processor 

detail chart 79 

general chart 29 
DOS Volume Statistics 238 
DOS, see Disk Operating System 
DTF addresses and pointers, (MICR) 208 
dumps 

standard system 19 
translating 19 



ERBLOC (error recovery block) 211 

EREP 238 

error message cross reference 200 

error queue entry 211 

error recovery block (ERBLOC) 211 

ESTV 238 

EVA (Error Volume Analysis) 238 

EXEC statement processor 

detail chart 88 

general chart 30 
EXTENT statement processor 

detail chart 95 

general chart 30 



F/L Trace (Fetch/Load Trace) 238 

FAVP (first available pointer) 202 

fetch 238 

fetch I/O key (FIK) 235 

FICL (first-in-class-list) table 202,223 

FIK (fetch I/O key) 235 

first available pointer (FAVP) 202 

first-in-class-list (FICL) table 202,223 

first-on-channel-list (FOCL) 202 

flowchart symbols, explanation of 236 

flowcharts 

detail 40 

general 25 
FLPTR (free list pointer) 202 
FOCL (first-on-channel-list) 202 
free list pointer (FLPTR) 202 



general charts (see phases or statement 

processors) 
glossary 238 



Index 241 



GSVC Trace (Generalized SVC Trace) 238 



HOLD statement processor 
detail chart 102 
general chart 30 



I/O error logging 238 

I/O table interrelationship 202 

I/O Trace (Input/Output Trace) 238 

IDRA 

definition 238 

PIB table support 215 
IGNORE statement processor 

detail chart 48 

general chart 27 

text 1 1 
Independent Directory Read-in Area, see 

IDRA 
initiator , program 13 
interphase communication area (for $$ANERRZ 

Y r 0) 11,16 
interrupts 

logical attention 1 1 

physical attention 11 

supervisor call (SVC) 21 
interval timer (IT) table 212 
IT (interval timer) table 212 



JA 



228 



common table (ACCTCOMN) 
definition 238 
partition table (ACCTXX) 
user's table 22 9 
JIB (job information block) table 

218 
job accounting interface , see JA 
job information block (JIB) table 
218 
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202, 



202, 



label information format on SYSRES 

DASD 233 

tape 232 
label list 186 
LBLTYP statement processor 

detail chart 95 

general chart 30 
LID (logical transient identification) 

234 
LISTIO statement processor 

detail chart 69 

general chart 29 

sample output 17 
LOG statement processor 

detail chart 48 

general chart 27 

text 1 1 
logical ($$B) transients 

area 1 1 

attention 1 1 

initiator 13 



logical ($$B) transients (CONT.) 

storage location 12 

terminator 1 3 
logical transient identification (LID) 

234 
logical transient key (LTK) 234 
logical unit block (LUB) table 202,223 
LTK (logical transient key) 234 
LUB (logical unit block) table 202,223 
LUBDSP table 216 
LUBID table 202,216 



main storage map, supervisor 12 

MAP output 11,16 

MAP statement processor 

detail chart 49 

general chart 27 

text 1 1 
MCAR (Machine Check Analysis and Recording) 

238 
MCI (Machine Check Interrupt) 239 
MCRR (Machine Check Recording and Recovery) 

239 
MICR 

DTF addresses and pointers tables 
208 
microfiche index 237 
MODE statement processor 

detail chart 180 

general chart 31 

text 11 
MSG statement processor 

detail chart 44 

general chart 27 

text 1 1 



next-in-class-list (NICL) table 202,223 
NICL (next-in-class-list) table 202,223 
NOLOG statement processor 

detail chart 48 

general chart 27 

text 1 1 



object module 239 

OBR (Outboard Recorder) 239 

OC (operator communications) table 212 

operator communications (OC) table 212 

option tables 

AB (abnormal termination) 212 

IT (interval timer) 212 

OC (operator communications) 212 

PC (program check) 212 
overlay 239 



partition identifier (PID) 234 
PAUSE statement processor 

detail chart 47 

general chart 27 

text 1 1 
PC (program check) table 212 
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PCIL 

definition 239 

SVC usage 21 
PDAID (Problem Determination Aids) 239 
phase 239 



phases (CONT.) 



phases 






$$BATTNA, 


r detail chart 


40 


$$BATTNA, 


, general chart 


26 


$$BATTNA, 


r text 11 




$$BATTNB 


, detail chart 


44 


$$BATTNB 


r general chart 


27 


$$BATTNB, 


, text 11 




$$BATTNC, 


r detail chart 


46 


$$BATTNC J 


t general chart 


27 


$$BATTNC, 


r text 11 




$$BATTND, 


, detail chart 


49 


$$BATTND, 


t general chart 


27 


$$BATTND 


, text 11 




$$BATTNE, 


, detail chart 


52 


$$BATTNE, 


r general chart 


28 


$$BATTNE< 


, text 11 




$$BATTNF, 


f detail chart 


54 


$$BATTNF, 


r general chart 


28 


$$BATTNF, 


r text 11 




$$BATTNG, 


f detail chart 


56 


$$BATTNG, 


f general chart 


28 


$$BATTNG, 


r text 11 




$$BATTNH, 


r detail chart 


58 


$$BATTNH, 


f general chart 


28 


$$BATTNH, 


r text 11 




$$BATTNI, 


r detail chart 


60 


$$BATTNI i 


, general chart 


29 


$$BATTNI 


f text 1 3 




$$BATTNJ, 


f detail chart 


69 


$$BATTNJ, 


f general chart 


29 


$$BATTNJ, 


, text 13 




$$BATTNK, 


r detail chart 


74 


$$BATTNK, 


f general chart 


29 


$$BATTNK, 


r text 13 




$$BATTNL, 


f detail chart 


82 


$$BATTNL, 


r general chart 


30 


$$BATTNL, 


r text 13 




$$BATTNM, 


r detail chart 


88 


$$BATTNM, 


t general chart 


30 


$$BATTNM, 


, text 1 3 




$$BATTNN, 


f detail chart 


94 


$$BATTNN, 


f general chart 


28 


$$BATTNN, 


r text 11 




$$BATTNO l 


r detail chart 


95 


$$BATTNO, 


f general chart 


30 


$$BATTNO l 


r text 13 




$$BATTNP, 


f detail chart 


101 


$$BATTNP, 


, general chart 


30 


$$BATTNP, 


r text 13 




$$BATTNQ, 


r detail chart 


180 


$$BATTNQ, 


t general chart 


31 


$$BATTNQ, 


r text 11 




$$BATTNR, 


t detail chart 


182 


$$BATTNR, 


r general chart 


31 


$$BATTNR, 


r text 11 




$$BATTNS, 


f detail chart 


184 


$$BATTNS, 


, general chart 


31 


$$BATTNS, 


r text 11 




$$BCCHHR, 


f detail chart 


177 



$$BDUMP, 


detail chart , i 


standard dump 


152 






$$BDUMP, 


detail chart , 1 


branslating 


dump 


134 




$$BDUMP, 

36 
$$BDUMP, 


general chart, 


standard dump 


general chart, 


translating 


dump 


34 




$$BDUMP, 


text 1 3 




$$BDUMPB, 


detail chart, 


standard dump 


160 






$$BDUMPB, 


detail chart, 


translating 


dump 


137 




$$BDUMPB, 

38 
$$BDUMPB, 


general chart 


, standard dump 


general chart 


, translating 


dump 


37 




$$BDUMPB, 


text 1 3 




$$BDUMPD, 


detail chart, 


standard dump 


165 






$$BDUMPD, 


detail chart, 


translating 


dump 


142 




$$BDUMPD, 

38 
$$BDUMPD, 


general chart 


, standard dump 


general chart 


, translating 


dump 


37 




$$BDUMPD, 


text 13 




$$BDUMPF, 


detail chart, 


standard dump 


154 






$$BDUMPF, 

38 
$$BDUMPF, 


general chart 


, standard dump 


text 1 3 





$$BEOJ, detail chart 103 
$$BEOJ, general chart 33 
$$BEOJ, text 13 
$$BE0J1, detail chart 107 
$$BE0J1, general chart 34 

text 1 3 

detail chart 109 

general chart 35 

text 1 3 
$$BEOJ2A, detail chart 111 
$$BEOJ2A, general chart 35 
$$BEOJ2A, text 13 
$$BEOJ3, detail chart 113 

general chart 32 

text 1 3 

detail chart 114 

general chart 32 

text 1 3 

detail chart 115 
$$BEOJ5, general chart 32 
$$BEOJ5, text 13 

detail chart 116 
general chart 32 
detail chart 117 
$$BESTVB, general chart 32 
$$BESTVC, detail chart 118 
$$BESTVC, general chart 32 
$$BESTVD, detail chart 119 
$$BESTVD, general chart 32 
$$BESTVE, detail chart 121 
$$BESTVE, general chart 32 



$$BEOJ1, 
$$BEOJ2, 
$$BEOJ2, 
$$BEOJ2, 



$$BEOJ3, 
$$BEOJ3, 
$$BEOJ4, 
$$BEOJ4, 
$$BEOJ4, 
$$BEOJ5, 



$$BESTVA, 
$$BESTVA, 
$$BESTVB, 
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122 
32 

127 
35 



phases (CONT.) 

$$BESTVF, detail chart 

$$BESTVF, general chart 

$$BILSVC, detail chart 

$$BILSVC, general chart 

$$BILSVC, text 13 

$$BPCHK, detail chart 132 

$$BPCHK, general chart 35 

$$BPCHK, text 109 

$$BPDUMP, detail chart , standard dump 
170 

$$BPDUMP, detail chart, translating 
dump 147 

$$BPDUMP, general chart, standard dump 
39 

$$BPDUMP, general chart, translating 
dump 37 

$$BPDUMP, text 13 

$$BPDUM1, detail chart, standard dump 
171 

$$BPDUM1, general chart, standard dump 
39 

$$BPDUM1, text 13 

$$BPSW, detail chart 130 

$$BPSW, general chart 34 

$$BPSW, text 13 

$$BSDRUP, detail chart 176 

$$BSYSWR, detail chart 175 

$$BTERM, detail chart 123 

$$BTERM, general chart 33 

$$BTERM, text 13 
physical ($$A) transients attention 

routines 1 1 
physical unit block (PUB) table 202,217 
PIB (program information block) 214 

flag expansions 215 

table 213,214 
PID (partition identifier) 234 
PIK (program interrupt key) 234 
Private Core Image Library r see PCIL 
private library 239 
problem determination 239 
program check (PC) table 212 
program 

information block (see PIB) 

initiator 1 3 

interrupt key (PIK) 234 

key definitions 234 

terminator 1 3 

terminator phases 18 
PUB (physical unit block) table 202,217 



QTAM Trace 239 



READ statement processor 

detail chart 101 

general chart 30 
record format, label cylinder 

DASD 233 

tape 232 
Recovery Management Support, see RMS 
RELSE statement processor 

detail chart 102 



RELSE statement processor (CONT.) 

general chart 30 
REQID table 202,216 
requestor I/O key (RIK) 235 
requestor identification (RID) 216,234 
RID (requestor identification) 216,234 
RIK (requestor I/O key) 235 
RMS 

definition 239 

monitor table (RASTAB) 230 

use in MODE command 11 



SAB (seek address block) 202 
SDR (Statistical Data Recorder) 239 
seek address block (SAB) 202 
standard system dump 1 9 
START statement processor 
detail chart 56 
general chart 28 
text 1 1 
statement processors 

ALLOC, detail chart 52 
ALLOC, general chart 28 
ASSGN, detail chart 60 
ASSGN, general chart 29 
BATCH, detail chart 56 
BATCH, general chart 28 
CANCEL, detail chart 46 
CANCEL, general chart 27 
DLAB, detail chart 82 
DLAB, general chart 30 
DLBL, detail chart 79 
DLBL, general chart 29 
EXEC, detail chart 88 
EXEC, general chart 30 
EXTENT, detail chart 95 
EXTENT, general chart 30 
HOLD, detail chart 102 
HOLD, general chart 30 
IGNORE, detail chart 48 
IGNORE, general chart 27 
LBLTYP, detail chart 100 
LBLTYP, general chart 30 
LISTIO, detail chart 69 
LISTIO, general chart 29 
LOG, detail chart 48 
LOG, general chart 27 
MAP, detail chart 49 
MAP, general chart 27 
MODE, detail chart 180 
MODE, general chart 31 
MSG, detail chart 44 
MSG, general chart 27 
NOLOG, detail chart 48 
NOLOG, general chart 27 
PAUSE, detail chart 48 
PAUSE, general chart 27 
READ, detail chart 101 
READ, general chart 30 
RELSE, detail chart 102 
RELSE, general chart 30 
START, detail chart 56 
START, general chart 28 
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statement processors (CONT*) 
TIMER, detail chart 94 
TIMER, general chart 28 
TLBL, detail chart 76 
TLBL, general chart 29 
TPLAB, detail chart 75 
TPLAB, general chart 29 
UCS, detail chart 92 
UCS, general chart 30 
UNA, detail chart 67 
UNA, general chart 29 
VOL, detail chart 74 
VOL, general chart 29 
XTENT, detail chart 84 
XTENT, general chart 30 

supervisor call interrupt (SVC) 

supervisor 

calls 21,23 
cancel codes 15 
communications regions 203 
storage map 12 

SVC (supervisor call interrupt) 
list 23 
text 2 1 

SYSRES label information format 
DASD 233 
tape 232 

system dump, standard 19 

system recorder file 239 



see SVC 



tables 








AB 


212 






CBF 


222 






CHANQ 202 


,216, 


,227 


DIB 


210 






FICL 


202, 


223 




I/O 


202 






IT 


212 







JA Common 228 

JA Partition 229 

JA User's 229 

JIB 202,218 

LUB 202,223 

LUBID 202,216 

MICR DTF addresses 208 

NICL 202,223 

OC 212 

option 212 

PC 212 

PIB 214 

PUB 202,217 

REQID 202,216 

RMS Monitor 230 

TEB 202,219 

TEBV 202,220 

THFLPTR 202 

TKHDTAB 202,224 

TKREQID 202,216 
tape error block by volume, see TEBV 
tape error block, see TEB 
task selection procedure 227 
TEB 

address pointer 203 



TEB (CONT.) 

I/O tables, storage allocation 12, 
202 

tape error block 202,219 

TEB table format 219 
TEBV 

address pointer 208 

I/O tables, storage allocation 12, 
202 

tape error block by volume 202,220 

TEBV table format 220 
terminator phases 18 
terminator, program 13 
THFLPTR table 202 
TIMER statement processor 

detail chart 94 

general chart 28 

text 1 1 
TKHDTAB (track hold) table 67,202 
TKREQID table 202,216 
TLBL statement processor 

detail chart 76 

general chart 29 
TPLAB statement processor 

detail chart 75 

general chart 29 
track hold (TKHDTAB) table 67,202 
transient attention routines 

logical 1 1 

physical 1 1 
translating dump 19 



UCS statement processor 
detail chart 92 
general chart 30 

UNA statement processor 
detail chart 67 
general chart 29 



version and modification level (see intro, 

PLM index) 
VOL statement processor 

detail chart 74 

general chart 29 



XTENT statement processor 
detail chart 84 
general chart 30 
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